Заполнить случайным образом массив размерностью n=20, выбрать из последовательности все элементы которые заканчиваются на 0.

Question

Заполнить случайным образом массив размерностью n=20, выбрать из последовательности все элементы которые заканчиваются на 0.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n,i:integer; a:array[1..20] of integer; begin n:=20; for i:=1 to n do begin a[i]:=random()%202+1; if a[i] mod 10 = 0 then writeln(a[i]); end; readln; end. ну как то так.. нету возможности проверить.