Осуществить ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. использовать оператор repeat.

program z8_1; uses crt; vari: shortint; k,n: byte; s: integer; sa: real; beginclrscr; i: =1; repeatread(i); if i> 0 then begink: =k+1; s: =s+i; end; until i=0; sa: =s/k; write('количество чисел: ',k,' сумма чисел: ',s,'среднее арифметическое: ',sa: 4: 2); readkeyend.

Var  a: array[1..n] of integer;   k, i,  m: byte;   min: integer; begin  write('razmer massiva: ');   readln(k);   if (k < 0) or (k > 100) then      begin        writeln('razmer dolzhen byt bolshe 0 i menshe 100');         readln;         exit;       end;   randomize;   writeln('ishodn. massiv: ');   for i: =1 to k do      begin        a[i]: =random(101)-50;         write(a[i]: 4);       end;   min: =a[1];   for i: =2 to k do    if a[i] < min then        begin          min: =a[i];           m: =i;         end;   a[m] : = a[1];   a[1] : = min;   writeln;   writeln('min element = ', min: 4, ' v posicii ', m: 3);   writeln('rezult. massiv: ');   for i: =1 to k do      write(a[i]: 4);   readln; end.

Program chik; var a: array[1..100,1..100]of integer; n,m,i,j: integer; begin readln(n,m); for i: =1 to n do for j: =1 to m do read(a[i,j]); for i: =1 to n do for j: =m downto 1 do if(a[i,j] mod 2=0)then a[i,j]: =a[i,j]+a[i,1]; for i: =1 to n do begin for j: =1 to m do write(a[i,j],' '); writeln; end; end. n,m-размеры матрицы a[i,j]-элементы матрицы пример n=3 m=3 1 2 3 4 5 6 7 8 9вывод: 1 3 3  8 5 107 15 9  a[1,2]: =a[1,2]+a[1,1]=2+1=3a[2,1]: =a[2,1]+a[2,1]=4+4=8..но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j: =m downto 1  делаем т.е с конца строки проверяем чтобы первый эл.строки  матрицы не измениласьнадеюсь всё понятно