Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

Question

Информатика

Галата

25 декабря, 19:50

Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

+4

Ответы (2)

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

Калида · Answer 1

Var

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

i, k, m:integer;

begin

for i: = 1 to 10 do

a[i]: = Random (0,100) ;

writeln (a) ;

m:=a[1];

for i:=2 to 10 do

if a[i]
m:=m*6;

for i: = 1 to 10 do

a[i]: = a[i]-m;

writeln (a) ;

end.

Теодор · Answer 2

Теодор 25 декабря, 23:02

0

Ответ на ABC Pascal