заполнить массив случайными числами в интервале -10;10 найти min элемент массива и заменить его на 0
10-11 класс
|
Lenucikchatte
12 февр. 2015 г., 1:32:45 (9 лет назад)
Ichestnykh
12 февр. 2015 г., 3:59:27 (9 лет назад)
var
a:array [1..10] of integer;
i,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=a[1];
for i:=1 to 10 do
if a[i]<k then k:=a[i];
for i:=1 to 10 do
if a[i]=k then a[i]:=0;
writeln('Массив после обработки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
Ответить
Другие вопросы из категории
Источником умышленных угроз могут быть...
1) ошибочные действия пользователей
2) выходы из строя аппаратных средств
3) ошибки в программном обеспечении
4) программные вирусы
5) ошибочные действия администраторов
Дан массив из 10 элементов,которые заполняются случайным образом.Найти: а)наименьший элемент б)сумму не положительных элементов
в)произведение элементов,кратных 3.
Читайте также
Заполните массив случайными числами в интервале [0,5]. Определить,есть ли в нем элементы с одинаковыми значениями,стоящие рядом.
Пример:
Массив:
1 2 3 3 2 1
Есть: 3
Пример:
1 2 3 4 2 1
Нет.
Вы находитесь на странице вопроса "заполнить массив случайными числами в интервале -10;10 найти min элемент массива и заменить его на 0", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.