Ответ:
Минимальное необходимое количество спутников для определения корректного местоположения в пространстве - четыре.
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
Var a,b,c:byte;
begin
for c:=1 to 99 do begin
a:=c mod 2; b:=c mod 3;
if (a=0) and (b=0) then write (c);
end;
end.
1) (Фотка, где выдаёт ошибку)
b= 7+3*3 (т.к. цикл выполнится 3 раза)
b=63
2) b=4/5=0,8
2500 байт = 0.0025 Мбайт = 0.0000025 Гбайт
Ты уверен, что задание записано верно?