Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]

@Ольга456 · Регистрация: 28.05.2013

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

Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]. Определить является ли сумма элементов массива положительным числом.

@SladkayaVata · 28.05.2013, 19:34

Pascal

uses
  crt;
const
  n = 10;
var
  a: array[1..n] of integer;
  i, sm: integer;
begin
  clrscr;
  for i := 1 to n do
  begin
    a[i] := random(30) - 15;
    sm := sm + a[i];
  end;  
  for i := 1 to n do
    write(a[i]:3);
  writeln;
  if sm > 0 then writeln('Сумма элементов положительна: ', sm) else writeln('Сумма элементов отрицательна: ', sm);
  readln;
end.

@Ольга456 0 / 0 / 1 Регистрация: 28.05.2013 Сообщений: 40
		1
	Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15] 28.05.2013, 19:05. Показов 15701. Ответов 1 Метки нет (Все метки) Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]. Определить является ли сумма элементов массива положительным числом. 0

	28.05.2013, 19:34

Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]

Решение