Найти сумму элементов, кратных числу K.

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

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

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:14

Сообщение от 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.

go · 07.06.2011, 23:07

первая задача вообще не понятна

Добавлено через 1 минуту

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

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

p и q вводятся с клавиатуры?

@Ev[G]eN · 07.06.2011, 23:11

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

p и q вводятся с клавиатуры?

да...

go · 07.06.2011, 23:17

Сообщение от Ev[G

eN;1737512]да...

а Вы откуда знаете, просто меня смущает, зачем диапазон приводить

@Astemir · 07.06.2011, 23:33 **[ТС]**

от души,помогли чем могли

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

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	07.06.2011, 23:07	3
	первая задача вообще не понятна Добавлено через 1 минуту Сообщение от Astemir ) В заданной матрице A(3;N) ,поменять местами строки с номерами P и Q(1<=P<N,1<Q<=N). p и q вводятся с клавиатуры? 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	07.06.2011, 23:11	4
	Сообщение от go p и q вводятся с клавиатуры? да... 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	07.06.2011, 23:17	5
	Сообщение от Ev[G eN;1737512]да... а Вы откуда знаете, просто меня смущает, зачем диапазон приводить 0

@Astemir 0 / 0 / 0 Регистрация: 06.06.2011 Сообщений: 9
	07.06.2011, 23:33 [ТС]	6
	от души,помогли чем могли 0

Найти сумму элементов, кратных числу K.

Решение