Question

Задан массив размером 30 элементов.Подсчитать число и сумму положительных элементов в нем,В Паскаль.Через рандом чисел!!

Answer 1

const max=30;

var c:array[1..max,1..max] of integer;

m,n,i,j,p,k,s:integer;

begin

randomize;

repeat

write('Количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('Количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('Исходная матрица');

for i:=1 to m do

begin

for j:=1 to n do

begin

c[i,j]:=-10+random(21);

write(c[i,j]:4);

end;

writeln;

end;

write('P=');

readln(p);

k:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to n do

if c[i,j]>0 then s:=s+c[i,j];

if s>p then k:=k+1;

end;

write('Количество строк по условию=',k)

end.

Answer 2

Вот пример кода на языке Паскаль, который генерирует случайный массив из 30 чисел и подсчитывает количество и сумму положительных элементов:

cssCopy code
program CountPositiveNumbers;

var
  arr: array[1..30] of integer;
  i, count, sum: integer;

begin
  randomize; // инициализируем генератор случайных чисел
  count := 0;
  sum := 0;
  
  // заполняем массив случайными числами
  for i := 1 to 30 do
  begin
    arr[i] := random(201) - 100; // генерируем случайное число от -100 до 100
    writeln(arr[i]);
    
    // считаем положительные числа
    if arr[i] > 0 then
    begin
      count := count + 1;
      sum := sum + arr[i];
    end;
  end;
  
  writeln('Number of positive elements: ', count);
  writeln('Sum of positive elements: ', sum);
  readln;
end.

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