До ! 3. ввести n различных чисел.найти среднее арифметическое всех чисел 5.ученик в первый день занятий выучил 5 слов. в каждый последующие день он выучивал на 2 слова больше, чем в предыдущий. через сколько дней ученик будет знать 250 слов. примечание. будем считать дни, пока суммарное кол-во выученных слов не станет равным 250 слов

Вроде как-то так если изображение не будет открываться сообщи   

Вот 2 блок схемы. первая к первой , вторая соответственно

Const   nn=100; var   i,n,d: integer;   a: array[1..nn] of integer; begin   write('n = '); read(n);   randomize;   d: =0;   for i: =1 to n do begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]> 0 then d: =d+1       else           if a[i]< 0 then d: =d-1       end;   writeln;   if d> 0 then writeln('положительных чисел больше')   else       if d< 0 then writeln('отрицательных чисел больше')       else writeln('положительных и отрицательных поровну') end. пример n = 13 -1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7 положительных чисел больше

{ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! ошибка в том, что вы не форматируете код, и не видите, какой end закрывает какой begin. уберите их из кода и получите: program gg; var   a, b, c, d, e, max: integer; begin   writeln('введите пять целых чисел');   read(a, b, c, d, e);   if (a > = b) and (a > = c) and (a > = d) and (a > = e) then       max : = a   else   if (b > = a) and (b > = c) and (b > = d) and (b > = e) then       max : = b   else   if (c > = b) and (c > = a) and (c > = d) and (c > = e) then       max : = c   else   if (d > = b) and (d > = c) and (d > = a) and (d > = e) then       max : = a   else       max : = e;   writeln('наибольшее число ', max); end. форматирование кода:     if (****) then         begin                    оператор1;                       оператор2;               end    else           begin                  оператор1;                   оператор2;           end; } включите мозг и напишите нормальный код program gg; var   a, b, c, d, e, max: integer; begin   writeln('введите пять целых чисел');   read(a, b, c, d, e);   max: =a;   if b > max then max: =b;   if c > max then max: =c;   if d > max then max: =d;   if e > max then max: =e;   writeln(max); end. // pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var (a,b,c): =readinteger3; var (d,e): = readinteger2; writeln(max(a,max(b,max(c,max(d,; end.