Регистрация
Dj669
02.12.2022 23:29
Информатика
Есть ответ 👍

Это кумир, . 56 , только 1)создайте массив из семи элементов, значение которых двухзначные натуральные числа. определите минимальное значение элемента в массиве 2) создайте массив из десяти элементов, значение которых однозначные натуральные числа. определите количество элементов, значение которых меньше 7

131
295
Посмотреть ответы 2

Ответы на вопрос:

Korolinaaa
Korolinaaa
4,8(14 оценок)
1) алг нач цел таб  a[1: 7] цел i, mn нц для i от 1 до 7 a[i]: =irand(10,99) вывод a[i],' ' кц mn: =a[1]; нц для i от 2 до 7 если a[i]< mn то mn: =a[i] все кц вывод 'минимальный элемент: ',mn кон 2) алг нач цел таб  a[1: 10] цел i, c c: =0; нц для i от 1 до 10 a[i]: =irand(1,9) вывод a[i],' ' кц нц для i от 1 до 10 если a[i]< 7 то c: =c+1 все кц вывод 'кол-во элементов меньше 7: ',c кон
Aloha44
Aloha44
4,4(31 оценок)

const

  n = 30;

var

  a: array[1..n] of byte;

  i, count: integer;

begin

  randomize;

  for i : = 1 to n do

  begin

      a[i] : = random(51) + 150;

      writeln('рост претендета № ', i: 2, ' - ', a[i]);

  end;

  write('номера подходящих кандидатур: ');

  for i : = 1 to n do

      if a[i] > = 180 then

      begin

          inc(count);

          write(i, ' ');

      end;

  writeln;

  writeln('общее количество подходящих претендентов: ', count);

end.

Популярно: Информатика