Сделать блок-схему
дано набір ненульових цілих чисел; ознака його завершення – число
0. вивести кількість усіх чисел у наборі та суму всіх додатних чисел з
даного набору. якщо необхідні числа в наборі відсутні, то вивести 0.

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.

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

i,j,s,n,k: integer;

begin

  read(n);

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if i mod 2=0 then begin

                k: =k+1;

                s: =s+a[i,j];

          end;

      end;

      writeln(s/k);

end.

у нас тоже это было!

вот смотри:

первое а-а, шея-яеш, мама-амам,-это называется слова наобарот

а-1, весна-3, дом-5, река18-а это получение числа 18

№146 для начала нужно обьявить переменные,у меня обьявляются оператором dim,ну думаю,что дим нужен и при этом действие.

если переменная обозначает любой знак,не имея какого либо обозначения,или указания на конкретное число,тогда это переменная равна 0,обьявим ее.

dim a,b,c,

(если значение переменной равно 0,то можно распаложить ее в любом положении,или в задоном(изначально))

дальше выводим переменные на экран,

(если данная функция не работает,то,тогда нужно ввести после('),

print 'a'

print 'b'

print 'c'

ну и в конце пишем:

endif

примечание:

если значение переменных будет равна 0,то на экране тоже будет равна 0.