Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anton277
10.11.2020 23:01 •
Информатика
Решить на дан массив x(t). вычислить сумму положительных элементов массива с номерами меньшими 7, значение которых больших 15 (t³7) .
Показать ответ
Ответ:
Настя55251
21.07.2020 10:22
Const t=10;
var
x: array [1..t] of integer;
s, i: integer;
begin
for i:=1 to t do
begin
x[i]:=random(51)-20;
writeln('x[', i, '] = ', x[i]);
if (x[i]>0) and (i<7) and (x[i]>15) then s:=s+x[i];
end;
writeln('Сумма равна ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
magoomamedzadeh
28.01.2020 07:09
Выберите из перечисленных операторов, оператор цикла с предусловием * while i =100: S=Sti i=i+1for i in range(100): S=S+іif j 0: S=S+іelif x 0: S=S+х...
Dasha826251
27.08.2021 10:41
Создайте программу в pascal abc для вычисления 1. площади треугольника, зная длину его сторон. (по формуле герона) 2. площадь трапеции, если известны основания и высоты....
Yaroslava0111
19.01.2021 14:05
1.перечислите основные операции над объектами векторной графики? 2.в каком графическом редакторе можно менять порядок расположения объектов?...
Boxing12474
26.12.2022 22:01
Дано целое трехзначное число x.выполните алгоритм для x=192 найдите значение переменный a,b,c,s.чем является s этого алгоритма? a: =x div 100; b: =x mod 100 div 10; c: =x mod 10;...
mirnillas
03.04.2022 06:39
Какое количество информации содержится в цветной фотографии размером 20*20 см, воспроизведенной при растра с разрешением 60 мочек/см? !...
GoldGriffon
21.09.2022 20:10
Даны действительно числа x, y, z. вычислить u=max^2 (x, y, z) программу на паскале написать. ) вообще не понимаю...
Ученик2281337228
21.09.2022 20:10
Файл размером 40 кбайт передаётся через некоторое соединение за 80 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 3200 секунд. в...
German1224
02.03.2023 11:12
Как вычесть из 0,00001 число 101100001? (двоичная система) подробно, , ибо до меня не доходит....
danilasavap0a3nj
26.02.2022 01:56
Напишите программу печатающую номера элементов массива больших 30 (паскаль)...
Элизабет3000000
07.06.2020 01:36
Какова роль христианства в развитии культуры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
x: array [1..t] of integer;
s, i: integer;
begin
for i:=1 to t do
begin
x[i]:=random(51)-20;
writeln('x[', i, '] = ', x[i]);
if (x[i]>0) and (i<7) and (x[i]>15) then s:=s+x[i];
end;
writeln('Сумма равна ', s);
end.