Как найти среднее геометрическое в паскале

Как найти среднее геометрическое в паскале

Всем привет. Помогите мне пожалуйста сделать задачу, завтра сдавать..я вроде всё правильно набрала, но ничего не выходит.. Найти среднее геометрическое чётных элементов в массивах C(12) и A(8), имеющих чётный индекс.

program lab6; uses crt; const k=12;m=8; type mas=array[1..m]of integer; var a,b:mas;I:integer;   procedure vvod(var x:mas;n:integer); begin writeln('Введите',n:2,'чисел массива'); for i:=1 to n do read(x[i]); writeln; end;   procedure vivod(x:mas;n:integer); begin writeln('Исходный массив'); for i:=1 to n do write (x[i]:4); writeln; end;   procedure sr(x:mas;n:integer); var sum,kol:integer; begin kol:=0;sum:=0; for i:=1 to n do if (x[i]>0) and (x[i] mod2=0) then degin kol:=kol+1;sum:=sum+x[i]; end; if kol>0then writeln('Среднее арифметическое=',sum/kol:7:3) else writeln('Положительных чётных в массиве нет'); end;   begin clrscr; writeln('Массив a:');vvod(a,k);vivod(a,k);sr(a,k); writeln('Массив b:');vvod(b,m);vivod(b,m);sr(b,m); end.

Добавлено через 30 минут тут: if (x[i]>0) and (x[i] mod2=0) then пишет: Ошибка:неверное выражение…

Источник: studassistent.ru


Добавить комментарий