var
A: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
WriteLn ('Массив:');
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i], ' ');
end;
for i := Low (A) to High (A) do begin
if (A [i] > 50) and (A [i] <= 80) then
s := s + A [i];
end;
WriteLn;
WriteLn ('Сумма элементов массива = ', s);
end.
До сборки это просто железо. После сборки - да, но система еще не активна. после включения - становится полностью функционирующей системой.
Program JolieWErnAje;
uses crt;
const n=10;
var
a:array[1..n,1..n] of integer;
i,j: integer;
tp: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
tp:=1;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(20)+1; {заполняем массив}
write(a[i,j]:4);
if a[i,j] mod 3 = 0 then tp:=tp*a[i,j];
end;
writeln();
end;
writeln();
writeln('Произведение элементов, кратных 3, равно ',tp)
end.
первые 2 мужа один преезжает зобирает свою жену и уплывает второй муж плывёт и заберает свою жену
Ответ: 3) 8
У меня получилось так.
Из точки А в точку В (2 км)
Из точки В в точку D (1 км)
Из точки D в точку С (3 км)
Из точки С в точку Е (2 км)
В сумме 8 км.