Ленгит

Verified answer

Var b:array [1..18] of real;
i:integer;
begin
for i:=1 to 18 do begin
Write('b[',i ,']='); 
readln(b[i]);
end;
for i:=1 to 18 do
Writeln('b[',i ,']=',b[i]); writeln('Новый массив:');
for i:=1 to 18 do 
begin
if (i mod 3 =0) and (b[i]=0) then b[i]:=7;
Writeln('b[',i ,']=',b[i]); 
end;
readln;
end.