Восстановите текст программы ( вставте пропущенные обозначения )

var

I:integer;

x:integer;

y,q:integer;

a:string;

begin

i:=o;[обнуление переменных]

x:=0[ обнуление переменных]

y:=0;[обнуление переменных]

writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]

readin (a);[ввод переменной, в которой храниться имя]

writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]

readin (i); [ввод переменной, указывающей количество повторений]

for vas z:= 1 to I do

begin

writeln ( 'введите х- '); [вывод заданного текста на экран]

readin; [ввод переменной]

writeln ('введите у-'); [ вывод заданного текста на экран]

(у); [ввод переменной]

q:=q+x+y; [вычисление суммы]

end;

('Уважаемый', а, 'Сумма всех введённый чисел=',q,) ;

end.
​

Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.

P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)

ответ:

uses crt;

var a: array[1..20,1..20] of real;

    n,m,i,j: integer;

    s: real;

begin

    clrscr; randomize;

    write('введите кол-во строк: '); readln(n);

    write('введите кол-во столбцов: '); readln(m);

    for i: =1 to n do

    begin

      for j: =1 to m do

      begin

        a[i,j]: =random(100)/10;

        write(a[i,j]: 4: 1);

      end;

      writeln;

    end;

    for i: =1 to n do

    begin

      s: =0;

      for j: =1 to m do

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

      writeln('сумма ',i,'-ой строки: ',s: 0: 1);

    end;

    for j: =1 to m do

    begin

      s: =0;

      for i: =1 to n do

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

      writeln('сумма ',j,'-ого столбца: ',s: 0: 1);

    end;

    for j: =1 to m do

    begin

      s: =0;

      if j mod 2 = 0 then  

      begin

        for i: =1 to n do

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

        writeln('среднее арифметическое ',j,'-ого столбца: ',s/m: 0: 1);

      end;

    end;

    readln;

end.

объяснение: