Question

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений. (на паскале)

Answer 1

program qq;
const
N=100;
var a: array [1..N] of integer;
i,min,max : integer;
begin
min:=0; max:=0;
cls;
writeln ('Массив [-20;+20]');
for i:=1 to N do begin
A[i]:=random (40)-20;
write (A[i]:4);
if A[i] < 0 then
min:=min+A[i]
else max:=max+A[i];
end;
writeln;writeln;
writeln ('Cумма положительных элементов: ', max);
writeln ('Cумма отрицательных элементов: ', min);
end.

Answer 2

Программа на Pascal для заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20 и подсчета количества положительных и отрицательных значений:

program RandomArray;

var
  arr: array[1..100] of integer;
  i, positiveCount, negativeCount: integer;

begin
  randomize;

positiveCount := 0;
  negativeCount := 0;

// заполнение массива случайными значениями
  for i := 1 to 100 do
  begin
    arr[i] := random(41) - 20;
    
    // подсчет количества положительных и отрицательных значений
    if arr[i] > 0 then
      positiveCount := positiveCount + 1
    else if arr[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

// вывод результатов
  writeln('Массив заполнен случайными значениями:');
  for i := 1 to 100 do
  begin
    write(arr[i], ' ');
  end;
  writeln;
  writeln('Количество положительных значений: ', positiveCount);
  writeln('Количество отрицательных значений: ', negativeCount);
end.

Эта программа создает массив из 100 чисел, заполняя его случайными значениями из диапазона от -20 до 20. Затем программа подсчитывает количество положительных и отрицательных значений в массиве и выводит результаты на экран.