сервис вопросов и ответовНайти индексы всех элементов массива, значение которого равно нулю, если таковой существует
10-11 класс|
|
Tutat
16 дек. 2014 г., 14:16:01 (9 лет назад)
Kanada007
16 дек. 2014 г., 17:03:52 (9 лет назад)
var
a : array [1..1000] of integer;
n, i : integer;
begin
write ('Введите количество элементов');
readln (n);
write ('Введите массив');
for i := 1 to n do read (a[i]);
writeln ('Элементы с нулевым значением: ');
for i := 1 to n do
if a[i] = 0 then write (i, ' ');
end.
Ответить
Другие вопросы из категории
Дан массив из 42 целых случайных чисел в интервале от -5 до 150. Вывести на экран:
1. все чётные элементы
2. все элементы, оканчивающиеся нулём
ОЧЕНЬ ВАЖНО СТАВЛЮ ВСЕ СВОЮ ДОЛГО ЗАРАБАТЫВАЕМЫЕ БАЛЛЫ, ЕСЛИ НЕ СДАМ МОГУТ ОТЧИСЛИТЬ ,И БУДЕТ КОНЕЦ, НЕ ЗНАЮ УМОЛЯЮ ОЧЕНЬ ПРОШУ ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ!
!!25вариант УМОЛЯЮ! !!
в ПАСКАЛЕ.
строка содержит одно слово. является ли оно палиндромом?
ПОМОГИТЕ ПЛИЗ!
Заданы два натуральных числа N и K. Вычислить остаток от деления первого числа на второе. Входные данные: Входной поток содержит два
целых числа N и K (1 <= N <= 10^100, 1 <= K <= 10^9) записанные в двух отдельных строках.
Выходные данные:В выходной поток выведите остаток от деления N на K.
Пример входного файла (input.txt): 239 16 Пример выходного файла (output.txt): 15Читайте также
Дан массив X(N).Найти среднее арифметическое элементов массива,значения которых заключены в интервале [-3;3]. Если эта величина больше
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение
которых равно 4 (в паскаль)
FREE PASCAL
Вы находитесь на странице вопроса "Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.