Дан массив, содержащий 30 целых чисел. элементы массива могут принимать целые значения от 0 до 1000. опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. если такого числа нет то нужно вывести сообщение об этом. const n=30; var a: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); end. паскаль

Const n=30; var a: array[1..n] of integer; i,min: integer; begin min: =1000; for i: =1 to n do begin readln(a[i]); if (a[i] div 100> =1) and(a[i]< min) then min: =a[i]; end; if (min=1000) then writeln('такого числа нет') else writeln('минимальное 3-значное число равняется ',min); end.

//pascalabc.net 3.1 сборка 1200 begin   //  создаем массив и заполняем случайными числами от -50 до 50   var a : = arrrandom(readinteger('n='), -50, 50);   //выводим массив     a.println;   //находим индекс максимального элемента     var max : = a.indexmax();   // выводим значение макс. элемента и его индекса   writeln('max = ', a[max], ' index = ', max);   // заменяем максимальный элемент минимумом   a[max] : = -50;   //находим индекс второго максимального элемента (на данный момент уже первого)     max : = a.indexmax;   // выводим значение элемента и его индекса   writeln('max = ', a[max], ' index = ', max); end.

Сидят:   таня                   саша             ира               катя               даша оранж блуза     синяя           красная             белая           жёлтая   сандалии             сабо         туфли             босоножки         рыжие             русые           блондин         брюнетка         каштан секретарь       продавец         менеджер       админист       повар таня секретарь         даша в