Задание:
Программирование на языке Паскаль. Заданы массивы А и В из N чисел (N=10) случайным образом. Сформировать новый массив, каждыйэлемент которого равен сумме элементов этих массивов
Решение:
var a: array[1… 10] of integer; b: array[1… 10] of integer; c: array[1… 10] of integer; i: integer; begincls; for i: =1 to 10 do begin a[i]: =random (50); write (a[i]: 4); end; writeln; for i: =1 to 10 do begin b[i]: =random (50); write (b[i]: 4); end; writeln; for i: =1 to 10 do begin c[i]: =a[i]+b[i]; write (c[i]: 4); end; end.
Знаете другой ответ?