Int[] arr = new int[] { 3, 2, 1, 5, 6 }; int min = arr[0]; int min_ind = 0; for(int i=1;i<arr.Length;i++) { if (arr[i] < min) { min = arr[i]; min_ind = i; } } for (var i = min_ind+1; i < arr.Length; i++) arr[i] = 0; for (var i =0; i < arr.Length; i++) Console.Write(arr[i]+" "); Console.ReadKey();
function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел
i, n : integer;
begin
//Если колчисетво чисел вводится, то этот код
read (n);
for i := 1 to n do
read (a[i]);
//Если же по уловию задачи задана только строка чисел, то использовать следующий
//код
while not eoln (input) do
begin
n := n + 1;
read (a[n]);
end;
//Далее для обоих вариантов.
for i := 1 to n do
if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1
end.