Задание:
Помогите, очень срочно…. Нужно составить программу, с помощью которой нужно вывести на экран все четные элементы. (паскаль)
Решение:
Program Pr1; Uses Crt; var x,i,n: integer; begin clrscr; Randomize; Writeln ('введите кол-во чисел'); Readln (n); for i: =1 to n dobegin x: =random (100); if x mod 2=0 then Write (x,'); end; Readln; End.
Знаете другой ответ?