Регистрация
Infasotka41
16.05.2020 11:43
Информатика
Есть ответ 👍

Написать программу, с которой можно будет найти произведение отрицательных элементов одномерного массива целых чисел, состоящего из 5 элементов.

192
305
Посмотреть ответы 1

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

suiunbailkyzy99
suiunbailkyzy99
4,8(70 оценок)

var z: array[1..5,1..5] of real;

    i, j: integer;

    min: real;

 

begin

    for i : = 1 to 5 do

      for j : = 1 to 5 do

          readln(z[i,j]);

    min : = z[1,5];

    for i : = 2 to 5 do

      if (min > z[i,6-i]) then

          min : = z[i,6-i];

    writeln("min value is ",min)

end.

 

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