Const
N = 3;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
Min,S:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn;
Min:=0;
For i:= 1 to N do
Min:=Min+Abs(A[i,1]);
For j:= 2 to N do
Begin
S:=0;
For i:= 1 to N do
S:=S+Abs(A[i,j]);
if S<Min then Min:=S;
End;
WriteLn('Min = ',Min);
End.
Пример работы программы:
Исходная матрица:
8 3 0
1 3 -5
3 -10 -6
Min = 11
2 / 4 * 6 + 14 mod 3
0.5 * 6 + 2
3 + 2
5
Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
{ фото огонь !!! ))) решение согласно схеме }
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.