Var k,m: integer; Arr: array [1..10] of integer; begin ArrИнформатика: учебник для 6 класса/ Л.Л.Босова, - id1315044420221012 от ЛераКлаф 12.10.2022 03:46

Question

Информатика: Var k,m: integer; Arr: array [1..10] of integer; begin ArrИнформатика: учебник для 6 класса/ Л.Л.Босова, А.Ю Босова:= -3; ArrИнформатика. 6 класс: самостоятельные и контрольные работы/ Л.Л.Босова, А.Ю Босова:=5; Arr[3]:= -4; Arr[4]:=2; Arr[5]:=8; Arr[6]:= -2; Arr[7]:=9; Arr[8]:=15; Arr[9]:= -8; Arr[10]:= -7; m:=1; for k:=1 to 10 do if Arr[k] - 2*m -7 then begin m:=Arr[k];

ЛераКлаф · Accepted Answer

Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )

for i:=1 to 20 do A[i]:=random(9); // заполняем массив

for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;

for i:=1 to 20 do write(A[i]:3); // Выводит весь массив

writeln(); // просто перевод на новую строку для красоты

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

MOGZ ответил