Нужно составить программу в paskal ABC:
Массив содержит n случайных двузначных чисел. Определить сколько в данном массиве четных чисел. Вывести все его элементы с нечетными номерами.
Ответы
Ответ дал:
0
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.
Пример:
Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.
Пример:
Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59
Ответ дал:
0
var a: array [1..10] of integer;var kolvo:integer;beginfor var i:= 1 to 10 do a[i]:= random(89)+10;for var c:= 1 to 10 do begin if(a[c] mod 2 = 0) then kolvo:=kolvo+1; end;writeln('Четных чисел: ', kolvo);for var i:= 1 to 10 do write(a[i]:4);end.объяснение нужно?
Вас заинтересует
1 год назад
2 года назад
8 лет назад