Заменить нулевые элементы массива B(18) в ячейках, номера которых кратны 3, цифрой 7

Question

Заменить нулевые элементы массива B(18) в ячейках, номера которых кратны 3, цифрой 7

Answer 1

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.

Comments

Нужно не в Паскале, а схемой

---

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