Вмассиве состоящим из 30 целых чисел вводят оценки 10 учениов ,нужно вывести на экран оценки в виде таблицы: в первом столбце номер ученика,во втором его оценки.написать программу паскаль

135

260

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

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

dashasupergirlolly

Информатика

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

var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.

almiradkzbd

Информатика

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

Var mas: array of integer; k,j,n,i: integer; begin randomize; k: =0; write('n: '); readln(n); setlength(mas,n); for i : = 0 to n-1 do mas[i]: =random(100); for j : = 0 to high(mas) do if mas[j] mod 3=0 then inc(k); write(k); readln; end.