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

Question

Информатика

Лела

19 января, 14:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Тима · 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.