Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
миркинс
05.11.2022 04:50 •
Информатика
Вычислите сумму всех элементов массива,исключая элементы кратные 5.на языке паскаль.
Показать ответ
Ответ:
iKatya16
05.10.2020 21:14
Program n1;
var a: array[1..10] of integer;
i: integer;
sum: real;
begin
randomize;
sum:=0;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i] mod 5<>0 then sum:=sum+a[i];
end;
writeln;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ostankova82
26.06.2021 14:31
делаю тест очень нужно...
PlayGirl1999
24.02.2020 12:11
Люди с информатикой >...
p1pal1
17.10.2022 14:44
Задача. Двое мальчиков катались на лодке по реке. К берегу подошли два туриста с тяжелыми рюкзаками и попросили переправить их на другой берегЛодка была настолько мала,...
Lugazat
10.08.2020 06:56
Примерный объем школьного учебника-составляет 200 страниц. на странице 35 строк по 50 символов в строке. флеш памяць имеет объём 2 гб. сколько учебников поместится на...
liol456543
10.08.2020 06:56
Що таке кейпед? опишіть будову,призначення та область використання....
maks380i
03.06.2022 07:05
Алфавит состоит из 512 букв. Какое количество информации несет сообщение из 35 букв, записанное с этого алфавита?...
мериэмс
02.08.2021 10:17
Какие сведения необходимо размещать на web-страницах?...
aizazaliyaF
27.01.2022 23:45
Изучи предложенный алгоритм и определи недостающий анимационный эффект В «Области анимации».область анимацииПросмотр1 * Picture 22XELPHRGO 1.wav3* Wildfe.wmv4 улыбающеес......
Robingood135
26.11.2022 14:51
Составьте вопросительные предложения из следующих слов: 1. er, wo, wohnt. 2. heute, sie, wohin, fahren. 3. der text, wie, ist. 4. die fernstudenten, wann, studieren....
maiorov27
26.11.2022 14:51
Моего друга зовут вася.дружим мы давно с детского сада. он учится в другой школе. и еще в музыкальную школу ходит. на гитаре учится играть.он много произведений играет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..10] of integer;
i: integer;
sum: real;
begin
randomize;
sum:=0;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i] mod 5<>0 then sum:=sum+a[i];
end;
writeln;
write(sum);
end.