Инофрматика 11 класс(массивы)
Нужно переделать программу,чтобы она вмсето скммы-произведение и вычеслить среднее арифмитическое кот код:
Program Pa;
var A:array[1..5] of real;
S:real;
I:integer;
begin
for i:=1 to 5 do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
S:=0;
for i:=1 to 5 do S:=S+A[i];
writeln('S=',S);
end.

Желудок-желуд(корень),ок(суффикс) перчатки-перчат(корень),к(суффикс),и(окончание) сокровище-сокровищ(корень),е(окончание) пещера-пещер(корень),а(окончание) неделя-недел(корень),я(окончание) напёрсток-на(приставка),пёрст(корень)ок(суффикс) впечатление-в(приставка),печатл(корень),ен(суффикс),ие(окончание) ветчина-ветчин(корень),а(окончание) !

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

program z;

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

        i, n, min, max: integer;

begin

  writeln('введите n');

  readln(n);

  writeln('введите ',n,' элементов массива');

  for i: =1 to n do

        read(a[i]);

  min: =a[1];

  max: =a[1];

  for i: =1 to n do

      begin

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

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

      end;

  writeln('min=',min,' max=',max);

  readln

end.

1) см.вложение
2) см. вложение
3) (4 < 5) И НЕ(x < 4) тоже, что и (4 < 5) И (x >= 4) . Подходит только 4.

EDH - по второму пункту минус
BBC - подходит
EBE - по второму минус
BDD - по 3 минус
HDB - подходит
BBH - по 2 минус
DHB - по 1 минус
EBH - по 2 минус
EDC - подходит
в итоге 3 если не ошибаюсь нигде

200*35*50 = 350 000 байт350 000 байт = 0,35 Мбайт2 Гб = 2000 Мбайт2000 / 0,35 = 5 714 учебников