Задание:
Сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4
Решение:
Uses crt; const n=10; var a: array [1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (17) -7; writeln (a[i]); end; writeln; for i: =1 to n dobegina[i]: =a[i]*4; writeln (a[i]); end; end.
Знаете другой ответ?