Kelevmizh
4 год назад
Пожалуйста посчитайте пожалуйста через 15 минут урок будет сделайте только правильно 6 задание
ОТВЕТЫ
Hofmann Ursula
Oct 24, 2020
невидно 4 задание 5 и 6 5)
var
a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
writeln ('=====================================');
for i:=1 to 10 do
if (odd(i)=false) and (odd(a[i])=false) then write (a[i],' ');
readln;
end. 6) program mas;
var i,j:integer; a:array [1..10] of integer;
begin
randomize;
for i=1 to 10 do
begin
a[i]:=random(10);
end;
for i=2 to 10 do
begin
j:=j+a[i];
i:=i+1;
end;
writeln(j);
readln;
end.
774
Смежные вопросы: