Найти среднее арифметическое элементов массива - Turbo Pascal (35295)

Формулировка задачи:

Условие задачи: Дан двумерный массив А размерностью NхN, элементы массива – случайные целые числа из диапазона (-30..30). N задается пользователем и может быть равно значению от 5 до 9 включительно. Необходимо сформировать из элементов массива А одномерный массив В, в который поместить все элементы, удовлетворяющие заданному условию. Вычислить: • Сумму элементов массива А • Сумму элементов массива В • Среднее арифметическое элементов массива А • Среднее арифметическое элементов массива В Вывести на экран исходный массив А, полученный массив B и вычисленные значения. условие отбора элемента А: Элементы, которые делятся на 5 Добавлено через 20 минут никак не дружу с массивами!.. а зачет нужен, помогите кто-нибудь, буду премного благодарна

Код к задаче: «Найти среднее арифметическое элементов массива - Turbo Pascal (35295)»

textual
uses crt;
 
const maxn = 9;
 
var a,b: array [1..maxn] of integer;
     na,nb,i,summaA,summaB: integer;
     srednee: real;
 
begin clrscr; randomize;
write('N = '); readln(na);
nb := 0; summaA := 0; summaB := 0;
write('Massiv A: ');
for i := 1 to na do
 begin
 a[i] := random(61) - 30;
 write(a[i],' ');
 summaA := summaA + a[i];
 if a[i] mod 5 = 0 then
  begin
  inc(nb);
  b[nb] := a[i];
  summaB := summaB + b[nb];
  end;
 end;
writeln;
 
write('Massiv B: ');
if nb = 0 then
 write('pusto')
else
 for i := 1 to nb do
  write(b[i],' ');
writeln;
 
writeln('Summa elementov v massive A: ',summaA);
writeln('Summa elementov v massive B: ',summaB);
writeln('Srednee arifmeticheskoe massiva A: ',summaA/na:0:2);
writeln('Srednee arifmeticheskoe massiva B: ',summaB/nb:0:2);
readkey; end.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ