Рассмотри рисунок и определи геометрические фигуры,с которых создан. Круг
Звезда
Прямоугольник
Линия
Треугольник
286
405
Ответы на вопрос:
const max=30;
var c: array[1..max,1..max] of integer;
m,n,i,j,p,k,s: integer;
begin
randomize;
repeat
write('количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('исходная матрица');
for i: =1 to m do
begin
for j: =1 to n do
begin
c[i,j]: =-10+random(21);
write(c[i,j]: 4);
end;
writeln;
end;
write('p=');
readln(p);
k: =0;
for i: =1 to m do
begin
s: =0;
for j: =1 to n do
if c[i,j]> 0 then s: =s+c[i,j];
if s> p then k: =k+1;
end;
write('количество строк по условию=',k)
end.
Популярно: Информатика
-
bon110127.09.2021 17:34
-
mrtwesor04.10.2022 01:09
-
caros1425.03.2022 21:01
-
raykova56807.09.2020 01:08
-
ВалераСаакян14.03.2021 12:21
-
systemka47024.10.2021 16:07
-
Nikitka11353211.06.2021 02:13
-
Rookgolf6028.10.2020 03:09
-
flexELITE302.09.2020 23:13
-
Shivan200201.04.2023 17:00