Регистрация
koshuba2017
17.02.2022 06:57
Информатика
Есть ответ 👍

Составьте программу формирования и вывода на экран одномерного массива , состоящего из количества положительных элементов строк двумерного массива.

177
470
Посмотреть ответы 2

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

Надежда2709
Надежда2709
4,7(71 оценок)
Код pascal: const     n = 3;     m = 4; var     a: array[1..n,1..m] of shortint;     b: array[1..n] of byte;     i,j,k: byte; begin randomize; for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] > 0 then k: =k+1;               end;       b[i]: =k;       writeln;       end; writeln; for i: = 1 to n do       write(b[i],' ') end.
SashaZaisnik1
SashaZaisnik1
4,8(90 оценок)
Var m: real; k: integer; begin m: =100; k: =0; while m> 80 do   begin   k: =k+1;   m: =m*0.99;   end; writeln('k = ',k); end. результат: k = 23

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