Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Срочно нужна помощь!!!!!!!!

Дан двумерный массив целых чисел размерностью n1xn2. Определить сумму положительных чисел в каждом столбце.

program vt;

uses crt;

type matr = array [1..50,1..50] of integer;

var c:matr;

j,i,l,n1,n2,s:integer;

begin

clrscr;

randomize;

{блок ввода элементов массива}

writeln(n1=); readln(n1);

writeln(n2=); readln(n2);

for i:=1 to n1 do

for j:=1 to n2 do c[i,j]:=30-random(100);

{блок ввода элементов массива}

writeln;

for i:=1 to n1 do begin

for j:=1 to n2 do write(c[i,j], );

writeln;

end;

{сумма положительных чисел в каждом столбце}

for j:=1 to n2 do begin

s:=0;

for i:=1 to n1 do

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

writeln(суммаэлем-в,j,–гостолбца=,s, );

end;

end.

ВЫПОЛНИТЕ СЛЕДУЮЩИЕ ЗАДАНИЯ:

Заполнить массив числами организованными случайным образом из интервала

[-15,15].

Изменить программу так, чтобы можно было вычислить количество положительных чисел в каждой строке.

Изменить программу так, чтобы можно было определить положение (индексы) минимального элемента. Результаты изменения и выполнения программы записать в тетрадь.

Изменить программу так, чтобы все положительные числа были заменены, на число 0. Результаты изменения и выполнения программы записать в тетрадь.

Ответ оставил Гость

интервал -15,15

c[i,j]:=-15+random(30);

 

{сумма положительных чисел в каждой строке}

for i:=1 to n1 do begin

s:=0;

for j:=1 to n2 do

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

writeln(суммаэлем-в,i,–й строки=,s, );

end;

 

{поиск минимума}

min:=c[1,1];{объявить переменную}

i_min:=1;{объявить переменную}

j_min:=1;{объявить переменную}

for i:=1 to n1 do begin

 

for j:=1 to n2 do

if c[i,j]

min:=c[i,j];

i_min:=i;

j_min:=j;

end;

writeln(Минимальный элемент С[,i,,,j,]=,min);

 

 

{замена положительных элементов на 0}

for j:=1 to n2 do begin

s:=0;

for i:=1 to n1 do

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

end;

Оцени ответ