Синформатикой) 1) дан массив от 0 до 100. найти минимальный нечётный элемент массива. 2) дан массив от -100 до 100 написать количество положительных и максимальный элемент массива. всё нужно по паскалю, )

274

450

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

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

Виолетта0201

Информатика

4,8(41 оценок)

1) uses crt; var a: array[0..100] of integer; i,min: integer; begin clrscr; randomize; writeln('дан массив: '); for i: =0 to 100 do begin a[i]: =random(150); write(a[i],' '); end; min: =a[0]; for i: =0 to 100 do if (a[i] < min) and (a[i] mod 2 < > 0) then min: =a[i]; writeln; writeln('минимальный нечетный элемент массива = ',min); readln; end.