X(10) массив и точные число А дались.Найдите элемент А.если нет А то найдите 0
5-9 класс
|
Алинчик2005
24 дек. 2013 г., 19:14:41 (10 лет назад)
Omonsas0
24 дек. 2013 г., 21:32:42 (10 лет назад)
var a:array[1..10] of integer;
i,b:integer;
begin
readln(b);
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]=b then write(i,' ');
end.
Ответить
Другие вопросы из категории
Читайте также
решите пожалуйста задачуу на програмирование паскаль. Даны 4 числа. Найти среднее арифметическое этих чисел и сравнить с максимальным из них. Если
оно(средн. числ.) больше,то вывести фразу "yes", если нет то "no"..
С клавиатуры вводится натуральное число n выясните является ли оно квадратом какого то натурального числа если является то выведите это число если нет то
вывести -1 например 4 является квадратом 2 а 17 не является квадратом никакого числа.
Ввести с клавиатуры два
числа. Проверить, равно ли второе число нулю. Если да, то вывести на экран
фразу: «На ноль делить нельзя!» Если нет, то найти их частное.
Вы находитесь на странице вопроса "X(10) массив и точные число А дались.Найдите элемент А.если нет А то найдите 0", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.