Const n=5; var a,b:array[1..n,1..n] of integer; i,j: byte; max2,k5:integer; begin randomize; k5:=0; max2:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(1,100); write(a[i,j]:4); if (i=2) and (a[i,j]>max2) then max2:=a[i,j]; if (j=5) and (a[i,j] mod 2 =0) then k5:=k5+1; end; writeln; end; writeln; writeln ('Максимальный элемент 2-ой строки = ',max2); writeln ('Количество четных элементов 5-го столбца = ',k5); end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin var a:= ArrRandom(10, -100, 100);a.Println; Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count); Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum); Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average); if a.Where(t -> t > 0).Count > 0 then Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max) else Writeln('Положительных чисел нет');
По всей видимости, нужно объяснить что выведет данная программа... Давай анализировать и разбираться. Мы создаем целочисленную переменную n, которую потом в цикле будем наращивать на "1". Такие переменные называют "Счетчик" Далее, создаем переменную s, равную 512, и пока она больше или равна нулю, мы отнимаем от нее "20". Посчитаем, сколько раз нужно отнять 20 от 512, чтобы получилось число меньше нуля: 512 / 20 = 25 и +"1" = 26, т.к. условие содержит "=". 26 раз мы увеличим переменную n, это и будет наш ответ
var
a,b:array[1..n,1..n] of integer;
i,j: byte;
max2,k5:integer;
begin
randomize;
k5:=0;
max2:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(1,100);
write(a[i,j]:4);
if (i=2) and (a[i,j]>max2)
then max2:=a[i,j];
if (j=5) and (a[i,j] mod 2 =0)
then k5:=k5+1;
end;
writeln;
end;
writeln;
writeln ('Максимальный элемент 2-ой строки = ',max2);
writeln ('Количество четных элементов 5-го столбца = ',k5);
end.
Пример:
2 26 38 58 16
70 24 40 39 35
74 38 69 93 94
64 6 18 56 93
44 86 17 93 56
Максимальный элемент 2-ой строки = 70 <br>
Количество четных элементов 5-го столбца = 3