• МАССИВЫ 9 КЛАСС
    1) положительные элементы массивы заменить на 0.
    2)найти сумму элементов, меньших 7.
    3)найти количество четных элементов
    4)найти номера элементов кратных 7.
    5)элементы, стоящие на нечетных местах, заменить на 1, а на четных местах заменить на 2.
    Пожалуйста помогите, нужно на завтра!

Ответы 6

  • Задача 1.
  • vari:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Замена положительных элементов на 0 writeln('Замена положительных элементов на 0'); for i:=1 to 10 do begin if a[i]>0 then a[i]:=0; write(a[i],' '); end; end.
    • Автор:

      shawn1d5t
    • 5 лет назад
    • 0
  • Задача 2. vari,s:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Сумма элементов <7 s:=0; for i:=1 to 10 do if a[i]<7 then s:=s+a[i]; write('Сумма элементов, меньших 7 = ',s); end.
    • Автор:

      nayeli
    • 5 лет назад
    • 0
  • Задача 3. vari,k:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Количество четных элементов k:=0; for i:=1 to 10 do if a[i]<7 then k:=k+1; write('Количество четных элементов = ',k); end.
  • Задача 4. vari:integer;a:array [1..10] of integer;begin// Генерация массива из 10 случайных элементов и вывод их на экранwriteln('Сгенерированный массив');// Генерация элементов от -100 до 100randomize; for i:=1 to 10 do begin a[i]:=random(201)-100; write(a[i],' '); end; writeln; // Номера элементов кратных 7 for i:=1 to 10 do if a[i] mod 7=0 then writeln('Номер элемента кратного 7 ',i); end.
    • Автор:

      trevor769
    • 5 лет назад
    • 0
  • 1) Сколько элементов должно быть в массиве? 2) Это 5 разных задач?
    • Автор:

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

Войти через Google

или

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

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

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