Решить в паскале! даны 2 массива сформированных случайным образом.составить программу которая находит сумму минимальных элементов массива заранее огромное

208

370

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

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

godmode3

Информатика

4,6(76 оценок)

Var a,b: array[1..10] of integer; i,j,min,min2,sum: integer; beginrandomize; for i: =1 to 10 dobegina[i]: =random(10); writeln(a[i]); end; min: = a[1]; for i: = 2 to 10 dobeginif (a[i] < min) then min: = a[i]; end; writeln('минимальный элемент 1 массива ',min); writeln('2 msssiv'); for j: =1 to 10 dobeginb[j]: =random(10); writeln(b[j]); end; min2: =b[1]; for j: =2 to 10 dobeginif ( b[j] < min2 ) then min2: = b[j]; end; writeln('минимальный элемент 2 массива',min2); sum: =min+min2; writeln('summa min: ',sum); end.