1) 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.
Type 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.