100}. Вывести. Найти в массиве минимальный элемент. Удалить его из массива. Вывести полученный массив. Предусмотреть вывод промежуточных данных. (pascal)
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ArrRandom(10,-50,100); a.Println; var im:=a.IndexMin; Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]); a:=(a[:im]+a[im+1:]).ToArray; a.Println end.
Var a,s:integer; begin writeln('Введите числа: '); s:=0; repeat readln(a); if (a mod 4=0) and (a>99) and (a<1000) then s+=1; until a=0; writeln(s); end.