Дано N чисел, найти среди них кол-во отрицательных.

При решении воспользуемся функцией random.

program chisla1;

var

n : integer; // кол-во данных чисел

k : integer; // кол-во отриц чисел

i : integer; // счётчик

a : integer;

begin

writeln('Введите кол-во обрабатываемых чисел.');

readln(n);

randomize; //инициализируем генератор случ. чисел

k := 0;

writeln('Генерируемые числа.');

writeln;

for i := 1 to n do

begin

a := random(100) - 50; //числа от 0 до 100 т.к -50 то от -50 до 50

write(a, ' ');

if a < 0 then inc(k);

end;

writeln;

writeln;

writeln('Кол-во отрицательных = ', k);

readln;

end.

Скачать решение.

Дано 50 вещественных чисел. Найти величину наибольшего
из них.

Program maksimum;
Uses CRT;

Const N = 50;

Var Arr : Array[1..N] of Real;
i : Integer;
Max : Real;

Begin
ClrScr; { Очищаем экран }
Randomize; { Сбрасываем генератор случайных чисел }

WriteLn('Исходный массив вещественных чисел:');
Arr[1] := 20 * Random - 10;
Write(Arr[1]:10:5);
Max := Arr[1];

for i := 2 to N do
begin
{ заполняем массив вещественными числами от -10 до 10 }
Arr[i] := 20 * Random - 10;
Write(Arr[i]:10:5);
if Arr[i] > Max then Max := Arr[i];
if i mod 7 = 0 then WriteLn; // через каждые семь столбцов
// переходим на новую строку
end;
WriteLn;
WriteLn;

WriteLn('Максимальное число = ', Max:8:5);
ReadLn;
End.
 

Решение.

Дано n чисел посчитать сумму их квадратов.

program fgh;
var
a, n : integer;
b, c : real; // сумма квадратов
begin
writeln('Введите число n');
readln(n);
b:=0;
// вещественные числа будем вводить генератором случ. чисел
// функция random выдает в том виде как записана целые числа от 0 до n
// но мы поделим её на a и получим дробные (вещественные) числа

randomize; // сперва сбросим генератор случ. чисел
for a:=1 to n do
begin
c := random(n) / a; // если любое число поделить на любое число
// в результате получим вещественное число
write(c: 3: 3, ' '); // Выведем результат

b:=b+sqr(c); //считаем сумму квадратов

end;
writeln;
writeln(b:3:3); // выводим результат
readln; // задержим выполнение программы чтобы посмотреть результат
end.

Скачать решение.