Дан массив из 20 рандомных чисел. Нужно, чтобы программа вывела только 1,3,6,9.На языке паскаль

107

462

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

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

saphiro12

Информатика

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

program z1;

var a:array [1..20] of integer;

i: integer;

begin

randomize;

for i:=1 to 20 do

a[i]:= random(2001)-1000;

writeln ('1 ячейка массива a[i] равна ', a[1]);

writeln ('3 ячейка массива a[i] равна ', a[3]);

writeln ('6 ячейка массива a[i] равна ', a[6]);

writeln ('9 ячейка массива a[i] равна ', a[9]);

end.

Я заполнил массив рандомными числами от -1000 до 1000, поскольку вы не указали диапазон чисел.

Объяснение:

Валоронтеа

Информатика

4,8(72 оценок)

Const nx=100; var i,j,k,n,s,a,b: integer; m: array[1..nx] of integer; sr: real; begin writeln('введите начало и конец диапазона'); readln(a,b); for k: =a to b-1 do begin i: = i+1; m[i]: = k; s: = s + k; if ((i mod 4 = 0) and (m[i]> 0)) then begin write(m[i]: 3); n: = n +1; end; end; writeln; for j: =1 to i do write(m[j]: 3); writeln; sr: =s/i; writeln('среднее арифметическое чисел, принадлежащих промежутку [a, b) = ', sr: 6: 3); writeln('количество положительных чисел, стоящих на местах, кратных 4 = ' ,n); end.