В программе МS Еxel использована функция min записана на следующим образом: min=(b2:b8)
А В
Фамилия Зарплата,руб
Иванов 11250
Петров 13720,55
Кошкина 5128
Владимирова 16042,37
Поляков 31178
Николаев 12289
Короленко 14467,11
В программе МS Exel использована функция MAX и записана следующим образом:=MAX(b2:b8)
mas = array [1..50] of integer;
var
x,y : mas;
s1,k1,s2,k2 : integer;
s,k : integer;
//Если вещественные, а не целые заменить на real(integer)
procedure ma (var x,y : mas);
var
i : integer;
begin
for i := 1 to 50 do
begin
x[i] := random(50);
y[i]:=random(75);
end;
end;
procedure sk (var s,k : integer; a : mas);
var
i : integer;
begin
s := 0; k := 0;
for i := 1 to 50 do
if a[i] > 0 then
begin
s := s + a[i];
k := k +1;
end;
end;
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.
const k = 15;
var
a : array [1..k] of integer;
s : real;
i : integer;
begin
randomize;
s := 0;
for i := 1 to k do //Обработка массива чаще всего
begin //осуществляется в цикле
a[i] := random(21); //Формирование
s := s + a[i]; //Подсчет суммы элементов
end;
s := s / k; //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3);
end.
3) const n = 5;
var
a : array [1..n] of integer;
i,k : integer;
begin
k := 0;
for i := 1 to n do
begin
readln (a[i]); //Считываем элемент
if a[i] < 0 then //Если элемент меньше нуля
k := k +1; //счетчик +1
end;
writeln (k);
end.