tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив из 10 целых чисел
Дан массив из 10 целых чисел от -20 до 20 и целое число (вводится с клавиатуры). напишите программу,определяющую,сколько в массиве чисел.
sasha1836
3 27.05.2019 21:20
1
Ответы
Танюшксав
25.06.2020 01:42
Program chik;
var a:array[1..1000]of integer;
max,p,i:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
max:=1;p:=1;
for i:=2 to 10 do
begin
if(a[i]>max)then begin
max:=a[i];
p:=i;
end;
end;
write(max,' ',p);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nadezhda136
05.10.2020 17:24
Навигациялық есептеулер сызғышының мерзімі және шыққан жері...
Gold1121
05.10.2020 17:39
Переведите восьмеричное число 235 в десятичную систему счисления...
zeynab97
05.10.2020 17:40
Расположи события в порядке приоритета Чтобы продолжить расставь все события по приоритету в правой колонке (Сверху вниз)...
Vlarizon98
05.10.2020 17:41
Як називається сукупність взаємопов’язаних засобів і методів здійснення інформаційних процесів? Інформаційна система Дані Інформація Інформаційна технологія...
maruha3008
05.10.2020 17:41
Компьютер калай жұмыс істейді...
ксюша1638
13.06.2019 15:10
Написать программу, проверяющую, является ли введённое значение факториалом некоторого числа на c#...
Betmen23
29.09.2019 23:07
15 надо решить на языке с++даны 2 числа, если они имеют разные знаки, то поменять их местами, иначе найти их сумму...
leila323
18.06.2019 11:30
Дается последовательность из чисел. найдите количество различных чисел....
12345678298
18.06.2019 11:30
Заполнить двухмерный массив состоящий из 5x5 элементов, случайными числами в диапазоне от 0 до 100. сформировать одномерный массив, состоящий из минимальных элементов...
keckush
18.06.2019 11:30
Определите следующие понятия: имя поля, значение поля, тип поля. какие бывают типы полей? какие величины определяет каждый из типов? напишите подробненько,а то щас надо....
Популярные вопросы
График какой функции ищображен на рисунке? 1)у=-(х+2)+1 2)у=-(х-2)-3...
1
Первый вопрос: как как зовут главного героя ? второй вопрос : какое...
3
Как раскрывается проблема веры в себя и в свои силы. в рассказе зелёная...
3
Опираясь на содержание текста вставь в клеточку пропущенные буквы 10...
1
Переделайте этот текст, но так что бы мысль осталась таже ...
3
Написать программу в паскале, для построения графика функции y = 7x^4...
3
Много ! ask and answer questions,as in the example1) you/have a cold?...
2
Решите 2 сор за 4 четверть 6 класс, 10...
1
Чем различаются настроения стихотворений листок и размышления у парадного...
1
Составить план іван муравейка паўлік будаўнік...
3
var a:array[1..1000]of integer;
max,p,i:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
max:=1;p:=1;
for i:=2 to 10 do
begin
if(a[i]>max)then begin
max:=a[i];
p:=i;
end;
end;
write(max,' ',p);
end.