Программа на паскале

дано 10 чисел

найти среднее арифметическое всех чисел, потом положительных, потом отрицательных.

for var i:=1 to 10 do

Ответы

найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.

 

program summa;

var a: array[1..100] of real;

          i, n: integer;

              s: real;

begin

  write (‘n=’); readln (n);

  s: =0;

  for i: =1 to n do

        begin

            write (‘введитечисло’); readln (a[i]);

            s: =s+a[i];

        end;

        writeln(‘сумма   элементов равна  ‘,s);

end.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

 

Var a:array[1..10] of integer;

i,k:integer;

s:real;

begin

k:=0;

writeln('Введите числа');

for i:=1 to 10 do

begin

readln(a[i]);

k:=k+a[i];

end;

s:=k/10;

writeln('Среднее арифметическое равняется ',s);

end.

Объяснение:

Найдено 3 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета,  финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплават...Подробнее
ответов: 4
сначала найдем производную первого порядка производная из этой функции равна произведению самой функции и производной степени y'== теперь второго порядка тот же принцип из той же ф...Подробнее
ответов: 2
при использовании компьютерного алфавита 1 символ = 1 байт, значит 20000 символов = 20000 байт 20000 : 1024 = 19,5 кбайт 19,5 кбайт < 20 кбайт, значит текст на дискету помести...Подробнее
ответов: 2
Популярные вопросы