Регистрация
Мери7788
18.11.2022 02:13
Информатика
Есть ответ 👍

ОМГ ВОПРОС ЖИЗНИ И СМЕРТИ НЕ РЕШУ УСРУГЦРУОАОАО

245
454
Посмотреть ответы 1

Ответы на вопрос:

Ggg7376
Ggg7376
4,7(97 оценок)
1.vara: array [0..12] of integer; i, k: byte; min: integer; begin  randomize;   for i: =0 to 12 do  begin  a[i]: =random(15)-4;   write(a[i]: 4);   end;   min: =a[0];   for i: =1 to 12 do  if a[i] < min then      begin        min: =a[i];         k: =i;       end;   writeln;   writeln('min v pozicii ', k, ' = ', a[k]);   readln; end.2. var a: array [1..6] of integer; i: byte; begin for i: =1 to 6 do begin  write(i, ' = ');   readln(a[i]); end; writeln; for i: =1 to 6 do begin  if i mod 2 = 0 then a[i]: =0;   write(a[i], ' '); end; readln; end.

Популярно: Информатика