Const nn=100; { максимальное значение n } var i,n,k,s:integer; a:array[1..nn] of integer; begin Write('Укажите натуральное число n: '); Read(n); Randomize; k:=0; s:=0; Writeln('Сформированная последовательность'); for i:=1 to n do begin a[i]:=Random(99)+1; { случайное число на интервале [1;99] } Write(a[i]:3); if (a[i] mod 5=0) and (a[i] mod 7 <>0) then begin Inc(k); s:=s+a[i] end; end; Writeln; Writeln('Количество чисел, кратных пяти: ',k); Writeln('их сумма равна ',s) end.
PascalABC.Net const n=25; { число учащихся } type inform=record fio:string; kols:integer end; var minf:array[1..n] of inform; i,j,t:integer; vs,v:real; ts:string; begin { ввод исходных и накопление суммы для среднего } Writeln('Введите исходные данные'); t:=0; for i:=1 to n do With minf[i] do begin Write(i:2,') Фамилия И.О. '); Readln(fio); Write(i:2,') количество знаков '); Readln(kols); t:=t+kols end; vs:=t/n/10; { сортировка по убыванию kols } for i := 1 to n-1 do for j := 1 to n-i do if minf[j].kols < minf[j+1].kols then begin t := minf[j].kols; minf[j].kols:=minf[j+1].kols; minf[j+1].kols:=t; ts := minf[j].fio; minf[j].fio:=minf[j+1].fio; minf[j+1].fio:=ts end; { результаты } Writeln('Самый результативный: ',minf[1].fio,' (',minf[1].kols/10:0:1, ' симв/мин)'); Writeln('Средняя скорость ввода составила ',vs:0:2,' симв/мин'); Writeln('Скорость ввода ниже средней имеют: '); for i:=2 to n do begin v:=minf[i].kols/10; if v<vs then Writeln(minf[i].fio, v:0:1,' симв/мин)') end end.
Тестовое решение для 5 человек (было указано n=5): Введите исходные данные 1) Фамилия И.О. Иванов И.И. 1) количество знаков 360 2) Фамилия И.О. Петров П.П. 2) количество знаков 410 3) Фамилия И.О. Сидоров С.С. 3) количество знаков 270 4) Фамилия И.О. Козлов К.К. 4) количество знаков 390 5) Фамилия И.О. Поляков П.П. 5) количество знаков 385 Самый результативный: Петров П.П. (41.0 симв/мин) Средняя скорость ввода составила 36.30 симв/мин Скорость ввода ниже средней имеют: Иванов И.И.36.0 симв/мин) Сидоров С.С.27.0 симв/мин)
