сервис вопросов и ответовДан массив натуральных чисел. Найти сумму элементов, кратных данному K.
5-9 класс|
|
H4rDoN
08 дек. 2013 г., 7:12:09 (10 лет назад)
Vsophia
08 дек. 2013 г., 8:36:23 (10 лет назад)
program bb;
uses crt;
const n=30;
var
m:array[1..n]of integer;
i,k,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
m[i]:=i;
write(m[i],' ');
end;
writeln;
write('K = ');
read(k);
writeln;
s:=0;
for i:=1 to n do
if m[i] mod k = 0 then
begin
s:=s+m[i];
write(m[i],' ');
end;
writeln;
writeln;
writeln('Сумма элементов кратных данному К = ',s);
end.
Ответить
Другие вопросы из категории
Составьте программу разделяющую слово на 2 части и меняющую эти части местами.
Сделать задачу для слова из 6 букв
РЕШИТЕ задачу построив табличную модель. Трое подростков Саша, Миша и Андрей живут на одной улице. Одного все знают , как отличного шахматиста, другой-
заядлый футболист, а третий компанейский парень, любитель тусовок. Однажды футболист пришел к своему другу, чтобы научится играть в шахматы, но мама сказала, что сына дома нет, он ушел с известной всей улице личностью на дискотеку. ИЗВЕСТНО ЧТО АНДРЕЙ НЕ ЗНАЕТ МИШУ. КТО ЕСТЬ КТО?
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 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. Помогите пожалуйста!!!
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
Вы находитесь на странице вопроса "Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.