Вгороде жили 5 друзей: макар,егор,аксён, фрол и филимон.профессии у них разные: один мельник,другой - id319071420230116 от СТЕЛЛА1111111111 16.01.2023 21:08

Question

Информатика: Вгороде жили 5 друзей: макар,егор,аксён, фрол и филимон.профессии у них разные: один мельник,другой маляр,третий-парикмахер.егор и фрол никогда не держали малярной кисти.макар и фрол не были на мельнице.егор и филимон жили в одном доме с почтальоном. аксен гулял на свадьбе егор и дочери парикмахера.макар и егор играли в городки с плотником и маляром.фрол и филимон брились в парикмахерской у друга.а почтальон брился сам.кто есть кто?

СТЕЛЛА1111111111 · Accepted Answer

Program task1;

const
n = 10;

var
a :array [1..n] of real;
i, j :integer;
min, k :real;

begin

for i:= 1 to n do
    readln(a[i]);

min:= a[1];
for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;

k:= a[n];
a[n]:= a[j];
a[j]:= k;

end.

program task2;

const
n = 10;

var
a :array [1..n] of integer;
i, j, kol :integer;

begin

for i:= 1 to n do
    readln(a[i]);

kol:= 0;
for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
writeln(j);

end.

MOGZ ответил