tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Среди 15 действительных чисел,
Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран
alyabevan02001
3 08.06.2019 18:20
0
Ответы
Jastmine42
01.10.2020 22:25
Const
N=15;
Var a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
If a[i]=a[N] then
begin
y:=i;
writeln (y);
end;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kolkolkim8a2016
11.09.2019 15:50
Представить числа в памяти пк: а)6 б)-6 в)136...
bayramovarzu
11.09.2019 15:50
Дано целое число n( 0)найдите к=(n+1)^2+(n+2)^2+(n+n)^2...
zahar64
07.04.2020 19:53
Дано описание массива:vara :array[1..n] of integer;Выберите, какие элементы массива подходят. -7 - 3 5-5.3 4.3 среда четверг суббота ...
vershynska
07.04.2020 19:52
Дан набор натуральных чисел. Все элементы с нечётным номерами заменить на квадратный корень. Результат вывести на экран. на языке python, с списков....
маша3054
07.04.2020 19:52
Какое значение, должна иметь переменная s, чтобы в ветвлении с условиемs!= 0 выполнился блок else?...
Dzean777
07.04.2020 19:51
Даны числа: 8; 20; 141; 3957; 10281. Используя MS Excel, вычисли среднее арифметическое данных чисел....
Лерой04
15.04.2020 11:49
Составить блок-схему для задачи: определение минимального числа из трёх чисел a, b, c (учесть возможность равенства всех трёх чисел)...
Анна666111
23.05.2019 09:40
Для записи текста используется 256-символьный алфавит. каждая страница содержит 30 строк по 64 символа в строке. какой объем информации содержат 5 страниц,...
массисо
23.05.2019 09:40
Примеры 1) пустого множества. 2) единичного множества. 3) множества из 10 элементов. 4) бесконечное множество...
Maryna03
30.06.2019 11:40
Для кого вероятней всего будет информативно следующее сообщение: программа- это алгоритм записанный на языке програмирование?...
Популярные вопросы
Как расписать пример (8475-3194)*50+2189*30...
3
Мальчик хочет купить несколько пачек мороженого по восемь рублей,но у него есть...
3
Характеристики форм рельефа.3 примера...
3
Старинная . говорит дед внукам: « вот вам 130 орехов. разделите их на две части...
1
480: (24: 3)-75= сколько получится. дети в 3 классе не проходили еще числа со знаком...
3
Сочинение. напиши сочинение-описание на тему прогулка или прогулка в лесу(в парке)....
2
Москва, воронеж, челябинск, кривой рог, париж, западная европа, дели, сочи, южная...
3
Петя идёт со скоростью 4км/ч.какое расстояние он пройдёт за 30 минут?...
3
Семена у сосны обыкновенной образуются на а) женских б) мужских...
2
Впрямоугольнике найдите диагональ , если стороны равны 10 см и 24 см...
2
N=15;
Var a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
If a[i]=a[N] then
begin
y:=i;
writeln (y);
end;
End.