Задан массив А [1..20]. Найти сумму случайных 5 чисел.

Ответы

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

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

вот проверила, так работает. нормально?

 

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

Найдено 2 ответ(ов)
Показать ответы
Знаешь ответ?

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

1)нет конечно же так как там нечего не записано.2)если что то записано, но нет полей можно считать что содержит так как всё-равно там написана информация. надеюсь тебе)) удачи!...Подробнее
ответов: 3
зменшуване - те від якого віднімають відємник - те число яке віднімають   двоцифрове число записане за цифри 7, оскільки число 2-цифрове, а при його записі використовується...Подробнее
ответов: 1
в данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. например, когда кидаем монетку у нас...Подробнее
ответов: 1
если он дед, то значит старый. в 15 лет старым нельзя считаться, значит родился он 29 февраля , т.е. в високосный год. день рождения празднует раз в 4 года. следовательно : 15*4=6...Подробнее
ответов: 2
в х о д н ы е з н а ч е н и я:   -количество влаги в почве  -минеральный состав почвы  -аэробность почвы, т.е. насколько в ней много воздуха  -количество почвен...Подробнее
ответов: 2
"новый" - создание нового документа. "сохранить" - сохранение документа, если он прежде не был сохранен то выбирается имя файла. "сохранить как" - сохранение документа с выбором им...Подробнее
ответов: 3
Популярные вопросы