найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых чисел принадлежащих промежутку [0;25) Вывести полученный массив на

+ 0 -

Gomel10086

26 марта 2015 г., 18:08:21 (9 лет назад)

var
  i, s: integer;

begin
  s := 0;
  for i := 15 to 25 do s := s + sqr(i);
  Writeln('s=', s)
end.

Тестовое решение:
s=4510

***********************************
const
  n = 10;

var
  i, k: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  k := 0;
  Write('Массив данных: ');
  for i := 1 to n do
  begin
    a[i] := Random(26);
    Write(a[i]:3);
    if a[i] > 12 then k := k + 1
  end;
  Writeln(#13#10, 'k=', k)
end.

Тестовое решение:
Массив данных:   0 21 20  8 14 15 25 11  2 20
k=6