Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)
Решение в прикрепленном файле.
Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
//Pascal ABC.NET v3.1 сборка 1172
var
ma: array of array of integer;
n, m, i, j, max, maxi, maxj: integer;
f: text;
s, st: string;
begin
randomize;
readln(n);
readln(m);
max := -1;
setlength(ma, n);
for i := 0 to n - 1 do
setlength(ma[i], m);
writeln('Matrix:');
for i := 0 to n - 1 do
begin
writeln;
for j := 0 to m - 1 do
begin
ma[i, j] := random(101);
write(ma[i, j]:4);
if max < ma[i, j] then
begin
max := ma[i, j];
maxi := i;
maxj := j;
end;
end;
end;
assign(f, 'text.txt');
rewrite(f);
for i := 0 to m - 1 do
write(f, ma[maxi, i]:4);
writeln(f, ' ');
for i := 0 to n - 1 do
write(f, ma[i, maxj]:4);
close(f);
writeln;
writeln('File:');
assign(f, 'text.txt');
reset(f);
while not Eof(f) do
begin;
readln(f, st);
s := s + st + chr(10) + chr(13);
end;
close(f);
write(s);
end.
Пример ввода:
3
4
Пример вывода:
Matrix:
30 29 3 61
64 4 99 36
45 9 85 19
File:
64 4 99 36
3 99 85
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.