Регистрация
ervinbek2005
20.06.2022 17:00
Информатика
Есть ответ 👍

Яку послідовність дій потрібно виконати, щоб засобами табличного процесора обчислити середній бал учня чи учениці за семестр?

261
326
Посмотреть ответы 1

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

Welta05
Welta05
4,4(21 оценок)

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

i,max,min,s: integer;

begin

randomize;

for i : = 1 to 100 do begin

a[i] : = random(100);

end;

max : = 1;

for i : = 2 to 100 do begin

if (a[i] > a[max]) then max : = i;

end;

min : = 1;

for i : = 2 to 100 do begin

if (a[i] < a[min]) then min : = i;

end;

s : = a[max] - a[min];

writeln(s);

end.

Популярно: Информатика