Напишите программу в паскаль которая выводит квадраты первых 7 нечетных чисел в массиве

235

267

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

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

maria22890

Информатика

4,7(25 оценок)

Не знаю как именно нужно было заполнять массив, поэтому сделал рандом var a: array[1..20] of integer ; n,i: integer; begin n: =7; writeln('массив'); for i: = 1 to 20 do begin a[i]: =random(20); write(a[i]: 3); end; writeln; writeln('квадраты первых 7 нечетных чисел'); for i: =1 to 20 do if (a[i] mod 2 = 1) and (n< > 0)then begin write(sqr(a[i]): 4); n: =n-1; end; end.