var K: array[1..N, 1..L] of integer; i, j, p: integer;
begin Randomize; for i := 1 to N do begin for j := 1 to L do begin K[i, j] := random(100) - 50; write(K[i, j]:5); end; writeln end; p:=0; for i := 1 to N do for j := 1 to L do if (K[i, j]<0) and (K[i,j] mod 3=0) then p:=p+1; writeln('Найдено отрицательных элементов, кратных трем: ',p) end.
Program Array129; var a: array [1..40] of integer; B: array [1..20] of integer; C: array [1..20] of integer; temp,M,N,i,j:integer; begin writeln('Введите N (N<=20)'); readln(N); writeln('Значения массива А'); for i:=1 to n do begin write('a[',i,']=');readln(A[i]); B[i]:=i; end; // решение temp:=0; m:=0; // формируем из исходного массива A[] два с длиной серий B[] и значением серий C[] for i:=2 to n do begin inc(temp); if a[i]<>a[i-1] then begin inc(M); B[M]:=temp; C[M]:=a[i-1]; temp:=0; end; end; inc(temp); inc(M); b[M]:=temp; C[M]:=a[i]; // складываем массив A[] согласно задания. temp:=1; for i:=1 to m do begin if b[i]>=b[temp] then begin temp:=i; end; end; inc(b[temp]);
temp:=0; for i:=1 to m do begin for j:=1 to b[i] do begin inc(temp); a[temp]:=c[i]; end; end; Writeln; Writeln('ответ'); Write(' A[]: '); for i:=1 to temp do Write(A[i],' '); end.
var
x, y, s: real;
begin
readln(x, y);
s := (2 + y) * (x - y);
writeln(s);
end.