Нарисовать кувшин или вашу и сделать скрины по пунктам: Основная окружность, указать центр используя - id1860198920210526 от плрол 26.05.2021 03:32

Question

Информатика: Нарисовать кувшин или вашу и сделать скрины по пунктам: Основная окружность, указать центр используя инструменты карандаш или рулетку Использовать инструмент Дуга или Карандаш, для показа контура Вазы Использовать инструмент Смещение, для дальнейшего образования пустоты во внутренней области Используя инструмент Ведение, для прочерчивания вокруг оси контура вазы ​

плрол · Accepted Answer

Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10; write(a[i,j]:4);
    end;
    writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
    for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      s:=s+a[i,j];
    end;
    writeln ('Строка: ',i,' сумма:',s);
end;
end.

MOGZ ответил