Program p1; Var j : Integer; A: Array[1..5] of Real; P : Real; Begin Randomize; P:=1; For j:=1 to 5 do Begin A[j]:=random(100); P:=P*A[j]; End; Writeln('Произведение всех элементов массива А равно: ',P); End;
Program p2; Var j : Integer; A: Array[1..5] of Real; Min : Real; Begin Randomize; For j:=1 to 5 do A[j]:=random(100); Min:=A[1]; For j:=2 to 5 do If( A[j] < Min ) Then Min:=A[j]; Writeln('Значение минимального элемента массива: ',Min); End;
Program Task; Const N = 499; M = 1; Var A: Array [1..N, 1..N] of Boolean; i, j, x, y, t: Integer; b: Boolean; Begin Randomize; While i < M Do Begin x := Random(N) + 1; y := Random(N) + 1; If A[x, y] = False Then Begin A[x, y] := True; i := i + 1; End; End; While b = False Do Begin b := True; For i := 1 To N Do For j := 1 To N Do Begin If A[i, j] = True Then Begin If (i + 1) <= N Then A[i + 1, j] := True; If (i - 1) > 0 Then A[i - 1, j] := True; If(j + 1) <= N Then A[i, j + 1] := True; If (j -1) > 0 Then A[i, j - 1] := True; End; End; For i := 1 To N Do For j := 1 To N Do If A[i, j] = False Then b := False; t := t + 1; End; WriteLn(t); ReadLn; End.
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
Var
j : Integer;
A: Array[1..5] of Real;
P : Real;
Begin
Randomize;
P:=1;
For j:=1 to 5 do
Begin
A[j]:=random(100);
P:=P*A[j];
End;
Writeln('Произведение всех элементов массива А равно: ',P);
End;
Program p2;
Var
j : Integer;
A: Array[1..5] of Real;
Min : Real;
Begin
Randomize;
For j:=1 to 5 do
A[j]:=random(100);
Min:=A[1];
For j:=2 to 5 do
If( A[j] < Min )
Then
Min:=A[j];
Writeln('Значение минимального элемента массива: ',Min);
End;