Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. вывести созданный массив на экран, расположив элементы в одну строку через пробелы. посчитать общее количество элементов, кратных 3 и нечетных элементов и вывести на экран

102

455

Посмотреть ответы 2

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

Aksa2101

Информатика

4,6(19 оценок)

Program titan; var h,b,i,x,y: integer; a: array[-100..100] of integer; begin randomize; x: =100; y: =-100; for i: =1 to 30 do begin a[i]: =random(x-y+1)+y; write(a[i],' '); end; for i: =1 to 30 do begin if ((a[i] mod 3)=0)and mod 2)< > 0)) then begin b: =b+1; end; end; writeln; writeln('количество равно ',b); writeln; end.