Question

Помогите!!!Людиии!!! 1. Дан массив из 10 элементов. Напечатать Все неотрицательные элементы массива. 2. Дан массив из 10 элементов. Определить Минимальный элемент массива.

Answer 1

Var
a:array[1..10] of integer;
i:integer;
begin
writeln('Вводите через Enter элементы массива:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>=0 then write(a[i]:4);
end.

====================================

var
a:array[1..10] of integer;
i, min:integer;
begin
writeln('Вводите через Enter элементы массива:');
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('Min = ',min);
end.

Answer 2

Я могу помочь вам с вашим вопросом о массивах. Массив - это структура данных, которая хранит набор однотипных элементов, к которым можно обращаться по индексу. Например, массив из 10 целых чисел может быть объявлен так:

int[] array = new int[10];

Для того, чтобы напечатать все неотрицательные элементы массива, нужно пройтись по всем элементам массива с помощью цикла и проверить, является ли элемент больше или равен нулю. Если да, то выводим его на экран. Например, так:

for (int i = 0; i < array.Length; i++)
{
    if (array[i] >= 0)
    {
        Console.WriteLine(array[i]);
    }
}

Для того, чтобы определить минимальный элемент массива, нужно сравнивать каждый элемент массива с некоторой переменной, в которой хранится текущий минимум. Изначально можно присвоить этой переменной значение первого элемента массива, а затем обновлять ее, если находим элемент, который меньше текущего минимума. Например, так:

int min = array[0];
for (int i = 1; i < array.Length; i++)
{
    if (array[i] < min)
    {
        min = array[i];
    }
}
Console.WriteLine("Минимальный элемент массива: " + min);

Надеюсь, это поможет вам решить вашу задачу. Вы можете найти больше информации о массивах на этих сайтах . Удачи!