Найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых...

0 голосов
52 просмотров

Найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых чисел принадлежащих промежутку [0;25) Вывести полученный массив на экран. подсчитать k-количество элементов массива значение которых превышает 12 ПОМОГИТЕ СРОЧНО


Информатика (40 баллов) | 52 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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






(142k баллов)