<h2>1.</h2>
program raf105;
var a:array[1..3,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите 9 чисел по очереди');
x:= 1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] < 0) and (a[i,j] > -14)
then x *= a[i,j];
end;
writeln('Вывод: ',x);
end.
<h2>2.</h2>
program raf105;
var a:array[1..10] of integer;
n,i,x:integer;
begin
writeln('Вводите 10 чисел по очереди: ');
x:= 1;
for i:=1 to 10 do
begin
readln(a[i]);
if ((a[i] mod 5) = 0) and (a[i] <> 0)
then x *= a[i];
end;
writeln('Введите число от 1 до 10');
readln(n);
a[n] := x;
writeln(n,'-й элемент массива заменён на число ',x);
for i:=1 to 10 do
writeln(a[i]);
end.
<em><u>Язык PascalABC</u></em>
Const
nm = 50;{максимальная длина массива}
type
Mas = array[1..nm] of real;
var
i, j, n: integer;
x, y: Mas;
d, dmin: real;
function SqrDist(p, q: integer): real;
{ Возвращает квадрат расстояния между точками }
begin
SqrDist := sqr(x[q] - x[p]) + sqr(y[q] - y[p])
end;
begin
Write('Введите количество точек -> ');
Readln(n);
Writeln('Вводите координаты каждой точки (x,y) через пробел');
for i := 1 to n do
begin
Write('точка ', i, ': ');
Readln(x[i], y[i]);
end;
dmin := 1e10; { значение, заведомо большее реально возможного }
for i := 1 to n do
for j := i + 1 to n do
begin
d := SqrDist(i, j);
if dmin > d then dmin := d
end;
Writeln('Минимальное расстояние между точками равно ', sqrt(dmin):0:4)
end.
Тестовое решение:
Введите количество точек -> 5
Вводите координаты каждой точки (x,y) через пробел
точка 1: 3.4 7.2
точка 2: -3 8.6
точка 3: -4.5 -5.1
точка 4: 6 -2
точка 5: 0 9
Минимальное расстояние между точками равно 3.0265
1)1110011
1+2+16+32+64=115
2)1101001
1+8+32+64=105
3)134=128+2+4
10000110
Ответ: 3 (три единицы)
4)143=128+8+1+4+2
10001111
Ответ:5
5)141=128+8+4+1
10001101
Ответ:4
6)1100110
2+4+32+64=102
Так как D3 изменилось на D7,то =B1*C2 изменится на =B5*C6
