Var m1,m2,m3:array of integer; i,n:integer; begin write('Введите размер массивов'); readln(n); setlength(m1,n); setlength(m2,n); setlength(m3,n); //Заполнение массивов for i:=0 to n-1 do begin m1[i]:=random(21)-10; m2[i]:=random(21)-10; m3[i]:= m1[i]+m2[i]; end; //Вывод массивов for i:=0 to n-1 do write(m1[i]:4); writeln; for i:=0 to n-1 do write(m2[i]:4); writeln; for i:=0 to n-1 do write(m3[i]:4); writeln; end.
Const n = 20; var rez:array[2..5] of integer; i,a:integer; begin for i:=1 to n do begin write(i,' ученик получил '); readln(a); inc(rez[a]); end; writeln; for i:=2 to 5 do writeln('Оценку ',i,' получили ',rez[i]); end.
Тестовое решение: 1 ученик получил 3 2 ученик получил 4 3 ученик получил 3 4 ученик получил 5 5 ученик получил 2 6 ученик получил 2 7 ученик получил 3 8 ученик получил 4 9 ученик получил 5 10 ученик получил 4 11 ученик получил 2 12 ученик получил 3 13 ученик получил 3 14 ученик получил 4 15 ученик получил 5 16 ученик получил 5 17 ученик получил 3 18 ученик получил 5 19 ученик получил 4 20 ученик получил 4
Оценку 2 получили 3 Оценку 3 получили 6 Оценку 4 получили 6 Оценку 5 получили 5
i,n:integer;
begin
write('Введите размер массивов');
readln(n);
setlength(m1,n);
setlength(m2,n);
setlength(m3,n);
//Заполнение массивов
for i:=0 to n-1 do begin
m1[i]:=random(21)-10;
m2[i]:=random(21)-10;
m3[i]:= m1[i]+m2[i];
end;
//Вывод массивов
for i:=0 to n-1 do write(m1[i]:4);
writeln;
for i:=0 to n-1 do write(m2[i]:4);
writeln;
for i:=0 to n-1 do write(m3[i]:4);
writeln;
end.
Тестовое решение:
Введите размер массивов 10
7 -10 9 -4 8 -6 10 4 6 2
10 -3 -2 -7 1 9 2 3 5 -6
17 -13 7 -11 9 3 12 7 11 -4