написать программу для подсчета количества если индекс ячейки нечетное , а элемент ячейки -четно
5 ;-3;6;1;0;3;17;2;8;9
СРОЧНО!
Ответы
Ответ дал:
1
Ответ:
Var
i,n:integer;
a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(10);
if (i mod 2=1) and (a[i] mod 2=0) then n:=n 1;
write(a[i],' ');
end;
writeln;
writeln('Искомых элементов: ',n);
end.
lasikokov1999:
Помагите пожалуйста с заданием .
Ответ дал:
1
Ответ:
Var
i,n:integer;
a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(10);
if (i mod 2=1) and (a[i] mod 2=0) then n:=n 1;
write(a[i],' ');
end;
writeln;
writeln('Искомых элементов: ',n);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад