Question

помогите исправить ошибку...
program fdjh;
uses crt;
var
F:file of integer;
in_name:string;
max,n,i,d:integer;
begin
writeln('Введiть iм`я файлу');
read(in_name);
assign(F,in_name);
rewrite(F);
writeln('Введiть розмiр файлу');
read(n);
for i:=1 to n do
begin
d:=random(101)-25;
write(F,d);
end;
close(F);
reset(F);
max:=-25;
while not eof(F) do
if (d>max)and(d mod 4=0) then
max:=d;
if max=-25 then writeln('Максимальний кратний 4 в файлі не існує')
else writeln('Максимальний кратний 4= ',max);
write(d,' ');
close(F);
end.

Answer 1

Ответ:

Думаю ошибка в ('Максимальний кратний 4= ',max)

Объяснение:

Насколько мне известно, в Паскале и ему подобных ЯП сложение строк производится путём "строка1 "+"строка2"="строка1 строка2"

Думаю надо написать else writeln('Максимальний кратний 4= '+max);

Так же строчкой ниже: write(d+' ');