Получить сумму тех чисел данной последовательности, которые кратны 7

@Miller61 · Регистрация: 11.03.2010

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

Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности, которые:
1) кратны 7
2)нечетные и отрицательные
3)удовлетворяют условию ai>i*i

@yanyk1n · 11.03.2010, 19:03

Pascal

uses crt;
const n=50;
var m:array[1..n]of integer;
i,k,s1,s2,s3:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  m[i]:=-30+random(70);
  write(m[i],' ');
 end;
 writeln;
 s1:=0;
 s2:=0;
 s3:=0;
 for i:=1 to n do
 begin
  if m[i] mod 7=0 then s1:=s1+m[i];
  if (m[i]<0) and (abs(m[i]) mod 2=1) then s2:=s2+m[i];
  if m[i]>i*i then s3:=s3+m[i];
 end;
 writeln('S1=',s1);
 writeln('S2=',s2);
 writeln('S3=',s3);
 readln;
end.

@Miller61 0 / 0 / 0 Регистрация: 11.03.2010 Сообщений: 10
		1
	Получить сумму тех чисел данной последовательности, которые кратны 7 11.03.2010, 18:56. Показов 1527. Ответов 1 Метки нет (Все метки) Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности, которые: 1) кратны 7 2)нечетные и отрицательные 3)удовлетворяют условию ai>i*i 0

Опции темы

Получить сумму тех чисел данной последовательности, которые кратны 7

Решение