В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K

@Astemir · Регистрация: 06.06.2011

Студворк — интернет-сервис помощи студентам

1) Написать программу, которая вводит произвольное число значений в переменную SUM и находит сумму и количество всех отрицательных и положительных значений.Использовать цикл While not eot(input).Решить с использованием цикла с постусловием и цикла с параметрами.

2) В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K.

3) В заданной матрице A(3;N) ,поменять местами строки с номерами P и Q(1<=P<N,1<Q<=N).

@Ev[G]eN · 07.06.2011, 22:15

Сообщение от Astemir

2) В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K.

Pascal

const 
 n = 10;
var 
 arr: array[1..n] of integer;
 i, k, summ: integer;
begin
 summ:=0; 
  for i:=1 to n do
   begin 
    arr[i]:=random(100);
    write(arr[i], ' ');
   end;
 writeln;
 readln(k);
  for i:=1 to n do
   if arr[i] mod k = 0 then summ:=summ+arr[i];
 writeln(summ);
end.

@Astemir 0 / 0 / 0 Регистрация: 06.06.2011 Сообщений: 9
		1
	В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K 07.06.2011, 18:28. Показов 1407. Ответов 1 Метки нет (Все метки) 1) Написать программу, которая вводит произвольное число значений в переменную SUM и находит сумму и количество всех отрицательных и положительных значений.Использовать цикл While not eot(input).Решить с использованием цикла с постусловием и цикла с параметрами. 2) В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K. 3) В заданной матрице A(3;N) ,поменять местами строки с номерами P и Q(1<=P<N,1<Q<=N). 0

Опции темы

В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K

Решение