profile
Опубликовано 4 года назад по предмету Информатика от Артем2017

Написать программу в Pascal ПОЛНОСТЬЮ ВСЮ от program до end. : определить количество положительных элементов в двухмерном массиве 5х4. Если программа будет написана полностью и работать верно поставлю супер решение

  1. Ответ
    Ответ дан DmitryINF
    program main;
    var
     mas:array[1..5,1..4] of integer;
     sum,j,i:integer;
    begin
     sum:=0;
     for j:=1 to 5 do
      for i:=1 to 4 do
       read(mas[j][i]);
     for j:=1 to 5 do
      for i:=1 to 4 do
       if mas[j][i]>0 then
        sum:=sum+1;
     writeln(sum);
    end.
    1. Ответ
      Ответ дан DmitryINF
      Я бы помог с блок схемой,но к сожалению не помню как они делаются(
    2. Ответ
      Ответ дан Артем2017
      аналогично, я потом задание еще размещу надо будет тоже прогу написать, баллов много дам, поможете?
    3. Ответ
      Ответ дан DmitryINF
      Okey ^_^
    4. Ответ
      Ответ дан Артем2017
      разместил задане
    5. Ответ
      Ответ дан Артем2017
      http://znanija.com/task/5176213
Самые новые вопросы