Регистрация
liudmilka19091982
12.06.2020 11:27
Информатика
Есть ответ 👍

Заданы два массива а(n) и в(m). в каждом из массивов найти наименьшее значение и умножить на него все элементы массивов. на печать вывести исходные и преобразованные массивы.(требуется код)

190
314
Посмотреть ответы 2

Ответы на вопрос:

виктория3345
виктория3345
4,4(28 оценок)
Clsinput ndim a(n), b(n)for i = 1 to n  a(i) = int(rnd * 100)next imin = a(1)for i = 2 to n  if a(i) < min then min = a(i)next ifor i = 1 to n  a(i) = min * a(i)next ifor i = 1 to n  b(i) = int(rnd * 100)next imin = b(1)for i = 2 to n  if b(i) < min then min = b(i)next ifor i = 1 to n  b(i) = min * b(i)next ifor i = 1 to n  print a(i); next iprintfor i = 1 to n  print b(i); next i
лолер2
лолер2
4,8(89 оценок)

ответ: var a,s,n,i:integer;

begin

s:=0;

write('kol-vo chisel:'); read(n);

if n>100 then writeln('error!');

begin

writeln('vvedite chisla');

for i:=1 to n do

begin

read(a);

if a>300 then write('error!');

if (a mod 6=0) then s:=s+a;

end;

write('summa=',s);

end;

end.

Объяснение:кажется

Популярно: Информатика