Написать программу в Паскале.

Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18; 15]. Выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции.

Задача: Заменить элементы массива, которые кратны пяти, на значение максимального элемента массива.

Question

Информатика

Костяня

6 января, 16:42

Написать программу в Паскале.

Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18; 15]. Выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции.

Задача: Заменить элементы массива, которые кратны пяти, на значение максимального элемента массива.

+5

Ответы (1)

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

Антониныч · Answer 1

Const n=15;

var

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

i, i_max:integer;

begin

for i:=1 to n do

begin

a[i]:=random (4) + 15;

writeln (a[i]) ;

end;

writeln;

for i:=1 to n do

write (a[i]:4) ;

writeln;

i_max:=1;

for i:=2 to n do

if a[i]>a[i_max]then

i_max:=i;

for i:=1 to n do

if a[i]mod 5=0 then

a[i]:=a[i_max];

for i:=1 to n do

write (a[i]:4) ;

end.