1. Для чего нужна форма? 2. Какие существуют режимы создания формы? 3. Какие есть возможности выбора полей в режиме Мастер форм? 4. Какие элементы можно разместить в форме? 5. Какие бывают виды форм в режиме Мастер форм?
Const n=10; var A : Array [1..10] of integer; i, mini, maxi, min,max, c,k: integer; begin for i := 1 to n do begin A[i] := random(10); write(' ',A[i]); end; maxi:=1; mini:=1; For i:=1 to n do begin min:=A[1]; If A[i]>max then begin max:=A[i]; maxi:=i; end; If A[i]<min then begin min:=A[i]; mini:=i; end; c:=A[maxi]; A[maxi]:=A[mini]; A[mini]:=c; end; Writeln; for i:=1 to n do begin Write(' ',a[i]); end; Writeln; for i:=1 to n do begin If a[i]>4 then begin a[i]:=4; inc(k); end; Write(' ',a[i]); end; Writeln; Write('Количество: ',k); end.
Const n=10; var A:Array[1..10] of integer; min,max,i,summa:integer; Begin For i:=1 to n do begin Write('Введите элемент' ,i,': '); Read(a[i]); end; min:=a[1]; for i:=1 to n do Begin if a[i]<min then begin min:=a[i]; end; end; Writeln('min:',min); max:=a[1]; for i:=1 to n do Begin If a[i]>max then begin max:=a[i]; end; end; Writeln('max: ',max); summa := 0 ; for i:=1 to n do begin if (a[i] mod 2 = 0) then summa := summa + a[i] end; writeln('Сумма четных элементов равна : ', summa); readln; end.
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
end.