• В целочисленном массиве A(15), заданном случайным образом найти количество элементов, больших 10.

Ответы 6

  • Второе скомпилируется везде
  • В задаче не ставился вопрос о том, где и как компилировать. Когда мы пишем задачу подобного рода, наша цель - написать максимально быстро, просто, понятно и без ошибок.
    • Автор:

      georgie
    • 6 лет назад
    • 0
  • Спасибо большое, а откуда мы  в этой строчке: "random(20)+1"  взяли (20)+1
    • Автор:

      aspen8zva
    • 6 лет назад
    • 0
  • Random(n) выдает случайное целое в диапазоне (0;n-1). Поэтому из (0;19)+1 мы формируем (1;20)
  • Это всего лишь для совместимости с первым вариантом, где было указано (1;20)
  • 1. Вот так это нужно решать по-современному// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))end.Тестовое решение4 16 14 9 11 18 17 14 14 15 1 1 9 10 15k=92. А вот так учат решать в школе...// PascalABC.NET 3.1, сборка 1172 от 19.02.2016var  a:array[1..15] of integer;  i,k:integer;begin  Randomize;  k:=0;  for i:=1 to 15 do begin    a[i]:=Random(20)+1;    Write(a[i],' ');    if a[i]>10 then k:=k+1    end;  Writeln;  Writeln('k=',k)end.Тестовое решение:18 15 7 6 3 3 10 6 6 15 2 16 16 2 12 k=6
    • Автор:

      blanco
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years