В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Настюша1118
Настюша1118
23.05.2023 18:09 •  Информатика

Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.опишите на языке программирования паскаль алгоритм, позволяющий найти и вывести сумму всех со-держащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 9,но не на 99. если подходящих чисел в массиве нет, программа должна вывести число –1. const n=2014; var a: array [1..n] of integer; i, j, s: integer; begin for i: =1 to n do a[i]: =; end.

Показать ответ
Ответ:
Zhenechka12332145
Zhenechka12332145
03.10.2020 15:37
Const n=2014;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(10000);
 write(a[i],' ');
 end;
writeln;
s:=0;
for i:=1 to n do
 if (a[i]>99)and(a[i]<1000) then
   if (a[i] mod 10=9)and(a[i] mod 100 <> 99) then s:=s+a[i];
if s<>0 then writeln('s = ',s) else writeln(-1);
end.

Пример (для n=10):
912 2824 2249 2605 2125 2598 485 739 18 2124 
s = 739
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота