• 1) Дан массив целых чисел из 12 элементов. Напечатать все четные элементы.
    2) Дан массив целых чисел из 10 элементов. Все элементы, кратные числу 10, заменить нулём.
    Нужна полная программа, Pascal ABC.

Ответы 1

  • VarA:array[1..12] of integer;i:integer;BeginWrite('Исходный массив: ');For i:= 1 to 12 do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;Write('Чётные элементы: ');For i:= 1 to 12 do    if A[i] mod 2 = 0 then Write(A[i],' ')End.Var A:array[1..10] of integer;i:integer;BeginWrite('Исходный массив: ');For i:= 1 to 10 do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;Write('Обработаный массив: ');For i:= 1 to 10 do    Begin    if A[i] mod 10 = 0 then A[i]:=0;    Write(A[i],' ')    End;End.
    • Автор:

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

Войти через Google

или

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

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

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