Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TheOll
24.03.2023 18:54 •
Информатика
Pascal. дан массив.найти сумму тех элементов ,которые расположены до максимального элемента данной последовательности .результат сохранить в файл.
Показать ответ
Ответ:
almightybarbara
25.08.2020 17:24
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
f:text;
p,i:integer;
begin
p:=0;
writeln('Array:');
var ar:=ArrRandomInteger(n,-100,100);
ar.Println;
assign(f,'text.txt');
rewrite(f);
for i:=0 to ar.IndexMax-1 do
p:=p+ar[i];
write(f,p);
close(f);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dyba2003
09.11.2022 21:18
Чему будет равно значение ячейки а7, если в неё ввести формулу =срзнпч (а1: а6)? а. | б 1 | 5 | 2| 4 | 3| 4 | 4| 5 | 5| 5 | 6| 4 | 7| =срзнач (а1: а6) 8| | а) 4,5 б) 4 в)...
Ксюшка1521
17.02.2021 06:50
На рисунке структура папки представлена в форме дерева. определитеполное имя файла s1.gifa) d: \doc5 b) d: \doc5\s1.gif c) d: \pt2\s1.gif d) d: \doc1.doc/sl.gif...
alinkaivankiv
05.10.2021 03:23
Program primer; var m,result : real; begin writeln( введите значения переменной m ); write( m= ); readln(m); result : = sqr((5+m)*9); writeln ( sqr((5+m)*9) , result: 8: 0);...
duy53519
05.10.2021 03:23
Program primer; var m,result : real; begin writeln( введите значения переменной m ); write( m= ); readln(m); result : = sqr((5+m)*9); writeln ( sqr((5+m)*9) , result: 8: 0);...
lera10211
06.09.2022 12:34
Один мудрец писал: Мне 33 года. Моей матери 124 года, а отцу 131 год. Вместе наи 343 года . Какую систему счисления использовал мудрец и сколько ему лет....
shkuratov89525510021
11.01.2021 23:41
напишите программу А) получает на вход целое число Б) находит в нем наибольшую четную цифру и выводит ее на экран В) находит в нем наименьшую четную цифру и выводит ее на...
BUPA1
12.04.2023 19:53
ИНФОРМАТИКА РЕБУСОЧЕНЬ ЭТО СВЯЗАНО С РОБОТОТЕХНИКОЙ ...
медныйвсадник
17.03.2022 10:09
Рис. 9. Робот стоит перед препятствием Робот с одним датчиком цвета при движении вдоль ЛИНИИ,встретил перед собой препятствие (рис. 9). Какие изменения Hyжно,внести в программу...
Лилесим
24.05.2022 01:05
Написать программу на пайтоне которая при вводе числа 1 напечатает «один», при вводе числа 2 напечатает «два» и т.д. до 5. Если число больше 5 или меньше 0 напечатать об ошибке...
егорбаглаев11
24.05.2022 01:05
Почему важно хранить личные данные в секрете?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const
n=10;
Var
f:text;
p,i:integer;
begin
p:=0;
writeln('Array:');
var ar:=ArrRandomInteger(n,-100,100);
ar.Println;
assign(f,'text.txt');
rewrite(f);
for i:=0 to ar.IndexMax-1 do
p:=p+ar[i];
write(f,p);
close(f);
end.