profile
Размещено 5 лет назад по предмету Информатика от zmei1234

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

Дан двумерный массив целых чисел размерностью 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. Результаты изменения и выполнения программы записать в тетрадь.

 

 

  1. Ответ на вопрос
    Ответ на вопрос дан dw18exdva

    интервал -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 then

    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;

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.