a = 24, b = -3
1) b < 7? да -> b := b+2 = -1; a := a-b = 24+1 = 25
2) b < 7? да -> b := b+2 = 1; a := a-b = 24-1 = 23
3) b < 7? да -> b := b+2 = 3; a := a-b = 23-3 = 20
4) b < 7? да -> b := b+2 = 5; a := a-b = 20-5 = 15
5) b < 7? да -> b := b+2 = 7; a := a-b = 15-7 = 8
6) b < 7? нет -> b = 7; a := 2*8 + 7 = 23
a = 23, b = 7
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
var a:array [1..4,1..6] of real;
b:array [1..6] of real;
i,j:integer;
k:real;
BEGIN
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
k:=-maxint;
for j:=1 to 6 do begin
for i:=1 to 4 do
if a[i,j]>k then k:=a[i,j];
b[j]:=k;
k:=-maxint;
end;
writeln();
for i:=1 to 6 do
write(b[i],' ');
end.
<span>нужно чтоб курсор не зависел от мыши</span>