Const
n = 30;
var
D: array1..n, 1..n of integer;
e, min, sump, min2, kol2n, sum1p: integer;
i, j: integer;

begin
Randomize;
min := 1000;
sump := 0;
min2 := 1000;
kol2n := 0;
sum1p := 0;
for i := 1 to n do
for j := 1 to n do
begin
e := Random(1000) — 500;
if min > e then min := e;
if e > 0 then
begin
sump := sump + e;
if (e mod 2) <> 0 then sum1p := sum1p + e
end;
if (e mod 2) = 0 then
begin
if min2 > e then min2 := e;
if e < 0 then kol2n := kol2n + 1
end;
Di, j := e
end;
writeln(Минимальный элемент: , min:6);
writeln(Сумма положительных элементов: , sump:6);
writeln(Минимальный четный элемент: , min2:6);
writeln(Количество отрицательных четных элементов: , kol2n:6);
writeln(Сумма положительных нечетных элементов: , sum1p:6)
end.

Тестовое решение:

Минимальный элемент: -499
Сумма положительных элементов: 115454
Минимальный четный элемент: -494
Количество отрицательных четных элементов: 226
Сумма положительных нечетных элементов: 60710

rtf

  • Вот мой ответ в догонку(зря писал что ли).
    Компилятор — Pascal ABC.NET
  • txt


    Гуманитарный Рунет

    Автор: 

    Related Articles

    Март

    , членами фракции «Единая Россия» Тверской городской Думы в марте 2017г.   Дата Время 1 марта (среда)   0  

    Добавить комментарий