В массиве сформированным случайным образом все элементы = 0 заменить числом 28!

помогите, нужна постановка программы, блок схема (необязательно) программа,

Question

Информатика

Славуся

15 мая, 06:44

В массиве сформированным случайным образом все элементы = 0 заменить числом 28!

помогите, нужна постановка программы, блок схема (необязательно) программа,

+4

Ответы (2)

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

Пиама · Answer 1

Program massiv;

Uses crt;

Var a:array [0 ... 15] of integer;

i:integer;

begin

For i:=1 to 15 do

begin

a[i]:=random (100) ;

If a[i]=0 then a[i]:=28;

writeln (a[i]) ;

end;

end.

Марийка · Answer 2

Var i, n:integer;

a:array[1 ... 1000] of integer;

begin

write ('введите кол-во элементов') ;

read (n) ;

for i:=1 to n do begin

a[i]:=random (10) ; write (a[i]) ;

end;

for i:=1 to n do begin

if a[i]=0 then a[i]:=28;

write (a[i]) ;

end;

end.

В массиве сформированным случайным образом все элементы = 0 заменить числом 28!помогите, нужна постановка программы, блок схема (необязательно) программа,

В массиве сформированным случайным образом все элементы = 0 заменить числом 28!

помогите, нужна постановка программы, блок схема (необязательно) программа,