Предмет: Информатика,
автор: kimaSola
Определите количество четных положительных элементов массива А.
(Паскаль)
Ответы
Автор ответа:
0
const N=10;
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(99)+1;
Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' ');
END;
WRITELN;
End.
Вроде так!
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(99)+1;
Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, '. ', A[i],' ');
END;
WRITELN;
End.
Вроде так!
Автор ответа:
0
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.
Автор ответа:
0
Так попробуй тоже
Интересные вопросы
Предмет: Другие предметы,
автор: darazareva47
Предмет: Геометрия,
автор: naimenee
Предмет: История,
автор: Аноним
Предмет: Математика,
автор: Лялики