Влинейном массиве определить минимальный элемент из элементов массива,имеющих нечетные номера

257

315

Посмотреть ответы 2

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

elena30lazarev

Информатика

4,6(24 оценок)

Const handsfree = true; var a: array[1..100] of real; i, n: integer; min: real; begin {ввод массива} if handsfree then n : = random(20) + 5 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(100); write(a[i], ' '); end else readln(a[i]); end; writeln(); {минимум и максимум} min : = a[1]; for i : = 1 to n do begin if (min > a[i]) and (i mod 2=1) then min : = a[i]; end; writeln('min = ', min); end.