Регистрация
minnegulovdamir
13.09.2021 16:05
Информатика
Есть ответ 👍

Что делать если в delphi7 при написании калькулятора строчка procedure tform1.formclose(sender: tobject; var action: tcloseaction); выявляется как ошибка?

268
338
Посмотреть ответы 1

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

dasha3012008
dasha3012008
4,4(99 оценок)

Program pr;

uses crt;

Var a:array[1..10] of integer;

   i,max:integer;

   s:real;

Begin

for i:=1 to 10 do Begin a[i]:=random(100); Write(a[i],';'); end;

Writeln;

max:=abs(a[1]-a[2]);

for i:=1 to 9 do

   if abs(a[i]-a[i+1])>max then max:=abs(a[i]-a[i+1]);

   s:=0;

for i:=1 to 10 do s:=s+a[i];

s:=s/10;

Writeln('max=',max);

Writeln('среднее арифметическое=',s);

readln;

end.

Объяснение:

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