Заполнить

массив из 15 элементов

числами из интервала от

-10 до 10 вывести в

строчку и повторно

вывести в строчку заменив

все элементы стоящие на

четных местах на число 5.

Question

Информатика

Риммушка

3 мая, 23:40

Заполнить

массив из 15 элементов

числами из интервала от

-10 до 10 вывести в

строчку и повторно

вывести в строчку заменив

все элементы стоящие на

четных местах на число 5.

+5

Ответы (1)

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

Анна · Answer 1

Program A1;

Uses crt;

Var A: array [1 ... 15] of integer;

i: integer;

Begin clrscr;

for i:=1 to 15 do

begin

a[i]: = random (10 - (-10) + 1) + (-10) ;

write (a[i],' ') ;

end;

writeln;

for i:=1 to 15 do

begin

if i mod 2=0 then a[i]:=5;

end;

for i:=1 to 15 do

write {a[i].' ') ;

readln;

readkey;

end.

Заполнитьмассив из 15 элементовчислами из интервала от-10 до 10 вывести встрочку и повторновывести в строчку замениввсе элементы стоящие начетных местах на число 5.