Сформировать массив, случайные числа, в диапазоне от 10 до 20. Подсчитать сумму элементов >=15 и их число

@Qiril · Регистрация: 05.12.2018

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

3)Сформировать массив из 20 элементов, случайные числа, в диапазоне от 10 до 20. Подсчитать сумму элементов >= 15 и их число.

@ZX Spectrum-128 · 05.12.2018, 15:32

Pascal

const
  n = 20;
 
var
  cc, sn, i: integer;
  a: array [1..n] of integer;
 
begin
  randomize;
  cc := 0;
  sn := 0;
  for i := 1 to n do 
  begin
    a[i] := random(11) + 10;
    if a[i] >= 15 then 
    begin
      cc := cc + a[i];
      inc(sn);
    end;
    write(a[i]:4);
  end;
  writeln;
  writeln('Сумма равна: ', cc);
  writeln('Количество равно: ', sn);
end.

@Qiril 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 5
		1
	Сформировать массив, случайные числа, в диапазоне от 10 до 20. Подсчитать сумму элементов >=15 и их число 05.12.2018, 15:06. Показов 3326. Ответов 1 Метки нет (Все метки) 3)Сформировать массив из 20 элементов, случайные числа, в диапазоне от 10 до 20. Подсчитать сумму элементов >= 15 и их число. 0

	05.12.2018, 15:32