Задание:
Создайте массив и подсчитайте сумму и среднее арифметическое элементов массива.
Решение:
На каком языке нужно? … Вот на perl пример: #! /usr/bin/perl@arr=(1,2,3,4,5,6,7,8,9); foreach (@arr) {$sum+=$_}; $avr=$sum/scalar (@arr); print "$sum\n"; print "$avr\n"; На pascal: program test; var arr: array[1… 10] of integer; i,sum: integer; avg: real; beginfor i: =1 to 10 dobegin arr[i]: =random (100); writeln (arr[i]); sum: =sum+arr[i]; end; avg: =sum/10; writeln; writeln (sum); writeln (avg); readln; end
Знаете другой ответ?