у меня в коде лазаруса пишет ошибку мол недопустимые значения надо вписать в 1 линию мемо если что это задание на странице 163 інформатика 9клас риквінд. Вот код
procedure TForm1.Button1Click(Sender: TObject);
var a: array [0..7] of integer; i: integer;
begin
For i := 0 to 7 do a[i] := strtoint(memo1.Lines[i]);
for i := 0 to 7 do a[i] := a[i]+i;
Memo2.clear;
For i := 0 to 7 do Memo2.Lines.append(inttostr(a[i]));
end;
буду весьма благодарен за

pueser    3   30.12.2021 19:47    0