2. написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна

using system.collection.generic;  

 

list< int> arr = new list< int> ();

 

int max = convert.toint32(console.; // максимальный порог

 

for(int i = 0; i < max; i++)

{

arr.add(convert.toint32(console.;

}

arr.sort();

console.writeline(arr[max]);

var max,h: integer;

begin

max: =-maxint-1;

repeat

begin

read(h);

if(h> max) then max: =h;

end;

until h > 0;

writeln(max);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Const n=10; m=3; var  a: array[1..n,1..m] of integer; i,j,s,k: integer; p: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(81)+20;     write(a[i,j]: 4);   end;   writeln;   end; s: =0; for i: =1 to n do   for j: =1 to m do s: =s+a[i,j]; p: =s/n*0.8; writeln('p = ',p: 5: 2); writeln('зачислены: '); k: =0; for i: =1 to n do   begin   s: =0;   for j: =1 to m do s: =s+a[i,j];   if s> =p then begin write(i,' '); k: =k+1; end;   end; writeln; writeln('k = ',k); end. пример: 76 62 50 37 73 22 61 99 36 22 69 38 27 82 22 93 56 37 79 84 51 83 31 60 61 39 95 70 70 100 p = 142.80 зачислены: 1 3 6 7 8 9 10   k = 7

Впоследовательности ошибка, там не 18, а 17. // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var a,b,c,d: integer;   (a,b,c): =(1,1,1);   print(a,b,c);   for var i: =1 to 20 do begin       d: =a+b+c; print(d);       (a,b,c): =(b,c,d)       end;   writeln end. результат 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329