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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
