ошибка operator is not overloaded

[vavrenyuka]

Я не понимаю как это реализовать, как это из массива взять?

[alexander13]

Можно как-нибудь так попробовать:

var
	a : array [1..10, 1..10] of byte;
	i, j, xk, yk : integer;
	d, sum : double;
	
BEGIN
	randomize;
	for i := 1 to 10 do begin
		for j := 1 to 10 do begin
			a[i, j] := random(2);
			write (a[i, j], ' ');
		end;
		writeln;
	end;
	
	sum := 0;
	readln (xk, yk);
	for i := 1 to 10 do
		for j := 1 to 10 do
			if (a[i, j] = 1) then begin
				d := sqrt (sqr (xk - j) + sqr (yk - i));
				sum := sum + d;
			end;
	writeln (sum:0:0);
	
	readln;
END.

Код не проверял.

[Вадим Мошев]

Рекомендую завести всего два массива одномерных, после чего заполнить их так

цикл от 1 до N по переменной i
	ввод координаты x и y для i-го спонсора

Потом воспользоваться той формулой, что я вам дал, а потом оставшимися пунктами того алгоритма, что я предложил

[vavrenyuka]

var a: array[1..15] of longint;
b: array[1..15] of longint;
d, n, hx, hy, s, i, j, x, y: longint;
begin
s := 0;
read(n);
read(hx, hy);
for i := 1 to n do
read(a[i], b[i]);
for i := 1 to n do
begin
d := sqrt(sqr(a[i]-hx) + sqr(a[i]-hy));
s := s+d;
end;
s := s*2;
read(s:0:2);
end.

Вот пишу код, ошибка: Incompatible types: got "Extended" expected "LongInt"
(Строку в которой что-то не так подчеркнул)

Вот блин

[Вадим Мошев]

Правильно ругается, потому что вы пытаетесь присвоить целой переменной действительную

Так сделайте переменную d типа Extended (хотя можно real)

и в конце read(s:0:2); замените на WriteLn(s:0:2)

[vavrenyuka]

и в конце read(s:0:2); замените на WriteLn(s:0:2)

перепутал я что-то...
Спасибо большое, что исправили, всё компилируется... но ответ не правельный

[Вадим Мошев]

Вы опечатку допустили:

d := sqrt(sqr(a[i]-hx) + sqr(a[i]-hy));

исправьте красное на b

Привыкайте искать ошибки сами, читать и анализировать код, понимать его, выполнять его ручную прокрутку, а также пользоваться встроенными средствами отладки. если вы будете программистом, то вам без этого никуда.

[vavrenyuka]

Вадим, спасибо Вам ОГРОМНЕЙШЕЕ, Вы просто не представляете, как мне помогли
Буду пытаться находить ошибки сам, просто паскаль взял недели две назад, по началу было легко, но вот когда пришли массивы... я лучше промолчу...
И ещё раз ОГРОМНОЕ СПАСИБО Вам, и удачи во всём.

[Вадим Мошев]

Аналогично. Желаю удачи во всём.