Будьласка це контрольна даю 50 балів
Але хто пише неправильно блокую і бали забераються!!!
Знайдіть суму,кількість та середнє арифметичне всіх натуральних трьохзначних чисел що починаються та закінчуються однаковими цифрами
В Лазарусі
Початок маю
a:array[0..1000] of integer;
i,n,sum,kil:integer;
ser:real;
n:=Memo1.Lines.Count;
sum:=0;
for i:=0 to n do
a[i]:=StrToInt(Memo1.Lines[i-1]);
for i:=1 to n do
if (a[i]<10) and (a[i]<1000) then begin
if (a[i]div 100) =(a[i] mod 10) then
sum:=sum+a[i];
kil:=kil+1;
ser:=sum/kil;

Графическая его часть

мне кажетса что чтото не так

Это чисто код, для чисто Паскаля

можеш сделать в лазарус пожалуйста!!!

Мне немного не понятен суть вашей части кода, напишите в личные сообщения, помогу

var i,j,s,k:integer;begins:=0; k:=0;for i:=1 to 9 do for j:=0 to 9 do  begin  s:=s+i*100+j*10+i;  k:=k+1;  end;writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);end.Результат:s = 49500 k = 90 sred = 550.00Если нужно приложение с формой, то:помещаете на форме командную кнопку (Button) и статичный текст (StaticText).В обработчик кнопки добавляете код:procedure TForm1.Button1Click(Sender: TObject);var i,j,s,k:integer; s:string;begin s:=0; k:=0; for i:=1 to 9 do  for j:=0 to 9 do   begin   s:=s+i*100+j*10+i;   k:=k+1;   end;   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);  StaticText1.Caption := s;end;

Не было возможности скопировать, исходный текст у вас в личных сообщения: