Регистрация
olykharkov
16.03.2022 12:20
Информатика
Есть ответ 👍

1) дан массив целых чисел из 12 элементов. напечатать все четные элементы. 2) дан массив целых чисел из 10 элементов. все элементы, кратные числу 10, заменить нулём. нужна полная программа, pascal abc.

106
384
Посмотреть ответы 2

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

sergogocer
sergogocer
4,6(79 оценок)
Var a: array[1..12] of integer; i: integer; begin write('исходный массив: '); 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; begin write('исходный массив: '); 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.
ilya20063
ilya20063
4,5(82 оценок)
Var       n: longint;       i, sum: integer; begin       readln(n);       sum : = 0;             while n > 0 do       begin               sum : = sum + (n mod 10);               n : = n div 10;       end;       writeln(sum); end.

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