Составить программу которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами - id323053120210430 от vladislava240203444 30.04.2021 03:27

Question

Информатика: Составить программу которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами 30,40,50,60,70

vladislava240203444 · Accepted Answer

Uses crt;
const
month_length = 30;

var
f: text;
max, i, k, s, n: integer;
a: array[1..366] of integer;

begin
assign(f, 'file.txt');
//закоментировать если файл существует
rewrite(f);
randomize;
for i := 1 to 365 do
    writeln(f, Random(100) - 50);
close(f);

reset(f);
n := 0;
while not eof(f) do
begin
    n := n + 1;
    readln(f, a[n]);
    Write(a[n], ' ');
    if (a[n] > max) or (n = 1) then max := a[n];
end;
close(f);

Writeln;
s := 0;
k := 0;
for i := 1 to n do
begin
    if abs(a[i] - max) <= 3 then k := k + 1;
    if n - i <= month_length then s := s + a[i];
end;
writeln('Last month average = ', s / month_length);
writeln('Tops = ', k);

end.

Составить программу которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами 30,40,50,60,70

MOGZ ответил