• решить через паскаль через массивы))

    1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество таких членов.

    2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.

    3.Дан массив из 10 элементов. Найти наибольший элемент массива.

     

Ответы 1

  • 1.

    program asd;uses crt;var a: array[1..10] of integer; i:integer; sum:integer;beginwriteln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end; end; writeln(' ',sum);

    end.

     

    2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 

    3.program asd;uses crt;var a: array[1..10] of integer; i:integer; naib:integer;beginwriteln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>naib) then naib:=a[i]; end;

    writeln(' ',naib);

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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