Есть ответ 👍

:написать программу для вычисления выражения s=2+4+6++200

252
461
Посмотреть ответы 2

Ответы на вопрос:

lovchike
4,6(70 оценок)

2+4+6+8+20+200 ^#,×%#: ×& @€$;

program minmax;

type massiv=array[1..15]of integer;

var v: massiv;

    i, min, max: integer;

begin

  randomize;

  v[1]: =5+random(46);

  min: =v[1]; max: =v[1];

  for i: =2 to 15 do

    begin

      v[i]: =5+random(46);

      if v[i]< min then min: =v[i];

      if v[i]> max then max: =v[i];

    end;

  writeln(' massiv: ');

  for i: =1 to 15 do

    write(v[i], '   ');

  writeln;

  writeln('min = ',min);

  writeln('max = ',max);

end.

Популярно: Информатика