Опубликовано 5 лет назад по предмету Информатика от 12byster1337

Дан массив из 30 целых чисел (заполнить случайными числами). Вывести массив на экран. Подсчитать сколько элементов больше максимального. Паскаль

Ответ

Ответ дан supersuperkirip54irs

var a:array [1..30] of integer;
k,i:integer;
BEGIN
k:=0;
for i:=1 to 30 do begin
a[i]:=Random(50)+1;
write(a[i],' ');
if a[i]>30 then k:=k+1;
end;
writeln();
writeln(k);
end.
1. Ответ
  
  Ответ дан 12byster1337
  
  спасибо
Ответ

Ответ дан MrMiner1

Program n_1;
var a: array [1..30] of integer; i, n: integer;
begin
randomize;
n:=0;
for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;
writeln;
for i:=1 to 30 do if a[i]>a[30] then n:=n+1;
writeln(n);
end.
Ну диапазон если что сами можете подредактировать :D
1. Ответ
  
  Ответ дан MrMiner1
  
  просто переносит вывод на следующую строчку
2. Ответ
  
  Ответ дан MrMiner1
  
  и какие там неизвестные символы...
3. Ответ
  
  Ответ дан 12byster1337
  
  все равно спасибо)
4. Ответ
  
  Ответ дан MrMiner1
  
  Ну не знаю... можно с этой строчкой поиграться: заново вручную переписать, к writeln скобочки добавить. Для справки: данная ошибка означает, что компилятор просто нашел неизвестный для него символ. Может быть где-то символ из кириллицы закрался.
5. Ответ
  
  Ответ дан MrMiner1
  
  Ну ладно

Самые новые вопросы

Математика - 4 года назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 4 года назад

Почему япония - лидер по выплавке стали?

Математика - 4 года назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 4 года назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Дан массив из 30 целых чисел (заполнить случайными числами). Вывести массив на экран. Подсчитать сколько элементов больше максимального. Паскаль

Информация