1)Составить процедуры рисования букв к, о, с и написать с их слово Кокос с большой буквы.

2)Создать процедуру рисования пирамидки и создать с её рисунок по образцу. Цвета колец пирамидок случайные, а размеры - различные

Question

Информатика: 1)Составить процедуры рисования букв к, о, с и написать с их слово Кокос с большой буквы. 2)Создать процедуру рисования пирамидки и создать с её рисунок по образцу. Цвета колец пирамидок случайные, а размеры - различные

КристинаРоманова1234 · Accepted Answer

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);

end;
end;
for i:=1 to n do
if a[i,i]>0 then
begin
s:=s+a[i,i];
k:=k+1;
end;
writeln;
if k<>0 then
writeln('SR=', s/k)
else
writeln('Net <0');
end.

MOGZ ответил