дан массив из n действительных чисел

Ответ от Александр[гуру]
2)
Program Massiv;
const n = 100;
var a : array[1..n] of integer;
i,b,v : integer;
begin
For i:=1 to n do
begin
a[ i ] := Random(-30,30);
Write(a[ i ] : 3);
if a[ i ] > 0 then inc(b);
if a[ i ] = 0 then inc(v);
end;
Writeln('');
Writeln('Кол-во положительных элементов: ',b);
Writeln('Кол-во нулевых элементов: ',v);
end.
1)
Program Massiv;
const n = 100;
var a : array [1..n] of integer;
var i,s : integer;
begin
randomize;
For i:=1 to n do
begin
a[ i ] := Random(-30,30);
Write(a[ i ] : 5);
end;
s := a[1];
For i:=1 to n do
begin
if s > a [ i ] then
s := a[ i ] ;
end;
Writeln('');
Writeln('Самое маленькое число: ',s);
s := a[1];
For i:=1 to n do
begin
if s < a[ i ] then
s := a[ i ];
end;
Writeln('Самое большое число: ',s);
end.
Пишу программы на заказ)
maria pos
Знаток
(446)
пишет программа ждет описания или начала