Вопрос по информатике:
В массиве из 30 элементов найти:1-номер минимального элемента 2-количество двухзначных чисел 3-сумму тех чисел на конце которых ноль,ре
шите пожалуйста в в паскале ,3 программы отдельно))срочно срочно
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.08.2018 18:36
- Информатика
- remove_red_eye 8783
- thumb_up 41
Ответы и объяснения 1
1)
var a:array [1..30] of integer;
i,min:integer;
begin
min:=maxint;
for i:=1 to 30 do
read(a[i]);
for i:1 to 30 do
if a[i]
end.
2)
var a:array [1..30] of integer;
i,k:integer;
begin
min:=maxint;
for i:=1 to 30 do
read(a[i]);
for i:=1 to 30 do
if (a[i] mod 10<=9) and (a[i] div 10<=9) then inc(k);
writeln(k)
end.
3)
var a:array [1..30] of integer;
i,s:integer;
begin
min:=maxint;
for i:=1 to 30 do
read(a[i]);
for i:=1 to 30 do
if a[i] mod 10=0 then s:=s+a[i];
writeln(s)
end.
- 16.08.2018 08:09
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.