Сначала с помощью цикла с параметром for объявим оценки 20-ти ученикам. Оценки будут случайные. После определим количество двоек, троек, четверок и пятерок, полученных за диктант.
program z_8;
var i, s2, s3, s4, s5: integer;
a: array [1..20] of integer;
begin
for i:=1 to 20 do begin
a[i] := random(2, 5);
if a[i] = 2 then s2:=s2+1;
if a[i] = 3 then s3:=s3+1;
if a[i] = 4 then s4:=s4+1;
if a[i] = 5 then s5:=s5+1;
end;
а) for i:=1 to 10 do a[i]:=random(101)-50
Данный массив будет сформирован следующим образом: значениям массива от a[1] до a[10] будет присвоено случайное целое число, принадлежащее отрезку [-50; 50];
б) for i:=1 to 20 do a[i]:=a[i]:=i
Значениям массива от a[1] до a[20] будет справедливо следующее: i-му массиву будет присвоено i-е значение(будет присвоено значение, совпадающее с индексом элемента);
в) for i:=1 to 5 do a[i]:=a[i]:=2*i-1
Значениям массива от a[1] до a[5] будет справедливо следующее: i-му массиву будет присвоено разность чисел (2*i) и единицы.
Объяснение:
Вид спереди заменила на фронтальный разрез