Заполните пропуски в программе, которая заполняет массив a[1..15]случайными числами в диапазоне от -10 до 10, выводит на экран исходный массив, затем преобразовывает его, прибавляя к четным элементам массива, а к нечетным - последний. первый и последний элементы не изменять. program preobrazovanie_2; var a: of ; i: integer; begin for i: = to do a[i]: =+; writeln('исходный массив: '); for i: = to do write(a[i], ' '); writeln; for i: = to do if a[i] then a[i]: = else a[i]: =; writeln('преобразованный массив: '); for i: = to do write(a[i], ' '); end.

ostapbelyaev ostapbelyaev    2   02.10.2019 06:50    2

Ответы
HamstersLOKKI HamstersLOKKI  09.10.2020 11:12

program preobrazovanie_2;

var a:array[1..15] of integer;

i:integer;

begin

for i:= 1 to 15 do

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

writeln('Исходный массив:');

for i:= 1 to 15 do

write(a[i], ' ');

writeln;

for i:= 2 to 14 do

if a[i] mod 2 = 0

then a[i]:= a[i]+a[1]

else a[i]:=a[i]+a[15];

writeln('Преобразованный массив:');

for i:= 1 to 15 do

write(a[i], ' ');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика