Помогите пожалуйста! Срочно надо! … в заданной последовательности целых чисел…

Question

50

Помогите пожалуйста! Срочно надо! … в заданной последовательности целых чисел определите сумму элементов кратных 10! Пример задачки вот именно подтипо по такой же системе которую щас напишу! program Maximum; i,n,max: integen; begin writeln ('введи элементы массива для поиска максимума'); for i: =1 to 10 do begin write ('a [', i ,']='); readln (a [ i ]); end; max: =a[1]; for i=2 to 10 do if a [ i ] > max then begin max: =a [ i ]; n: =i; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! В заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

oazet · Accepted Answer

Язык Паскаль.Program Ski; const n=5; {длина массива}var: a: array [1… n] of integer; i,s: integer; beginFor i: =1 to n do begin Writeln ('vvedite element massiva nomer ',i); Read (a[i]); end; {Тут мы просим пользователя ввести элементы}s: =0; {s — это указанная тобой сумма. Мы ее соответственно обнуляем сначала}for i: =1 to n do begin if a[i] mod 10=0 then s: =s+a[i]; end; { берем каждый элемент массива, и проверяем, делится ли он на 10 без остатка (mod- это остаток от деления на указанное число). Если все в порядке, тогда прибавляем число к общей сумме } Writeln ('summa elementov ravnih nulu ',s); {пишет ответ}readln; {чтобы сразу не закрывалась программа}end. Если возникнут вопросы или появится еще подобное задание для решения, пиши прямо в личку. Мне все равно делать нечего)

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: