Регистрация
olgakazakova20oy0u8c
19.04.2022 01:55
Информатика
Есть ответ 👍

1.в одномерном массиве 30 целых чисел,найти произведение положительных элементов. 2.в одномерном массиве 20 целых чисел,найти среднее арифметическое его наибольшего и наименьшего элементов.

140
320
Посмотреть ответы 2

Ответы на вопрос:

белка2010
белка2010
4,5(1 оценок)

program z567;

  var a: array [1..30] of integer;

      b: array [1..20] of integer;

      i,max,p,min: integer; s: real;

     

begin

  for i: =1 to 30 do

    a[i]: =random(10)-5;

  for i: =1 to 20 do

    b[i]: =random(10);

 

  for i: =1 to 30 do

    write(a[i],'   ');

 

  p: =1;

  for i: =1 to 30 do

    if (a[i] > 0) then p: =p*a[i];

   

  writeln('');  

  writeln('1-ое : ', p);

 

  for i: =1 to 20 do

    write(b[i],'   ');

 

  max: =b[1];

  for i: =2 to 19 do

    if (b[i] > max) then max: =b[i];

   

  min: =b[1];

  for i: =2 to 19 do

    if (b[i] < min) then min: =b[i];

   

  s: =(min+max)/2;

  writeln('');  

  writeln('2-ое : ', s);

end.

alkozlovtzeva
alkozlovtzeva
4,6(61 оценок)
Я не вижу там ничего не видео братан

Популярно: Информатика