Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.

0 0

3 года назад

ПРОГРАММА В ПАСКАЛЬ АВС 6 ЗАДАНИЕ

Риттта [12]

Если между z и a умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.

0 0

4 года назад

Что означает return?

Dmitrij9 [8]

Возвращать, если существительное по контексту - возврат

0 0

3 года назад

Прочитать ещё 2 ответа

Что не является частью ИС предприятия: программное обеспечение; аппаратное обеспечение; сетевое обеспечение; система пожароту

MariusW [61]

Система пожаротушения

0 0

4 года назад