Предмет: Информатика,
автор: safdagasw
Дан массив целых чисел. Напечатать: а) все четные элементы массива; б) все элементы, оканчивающиеся нулем.
grigoryi325:
На якій мові ??????????????
Pascal
Ответы
Автор ответа:
1
program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: ferumlantego
Предмет: Литература,
автор: sofiaandreeva589
Предмет: Алгебра,
автор: bekhillia1608
Предмет: Биология,
автор: саша1673