1)дан массив целых чисел. выяснить, верно, ли что сумма элементов массива есть четное число. 2)дан массив целых чисел. напечатать все элементы, оканчивающиеся нулем.

174

380

Посмотреть ответы 3

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

андрей100500ый

Информатика

4,7(19 оценок)

Const n = 13; var a: array[1..n] of integer; i: integer; os: byte; begin randomize; write('исходный массив: '); os: =0; for i: = 1 to n do begin a[i]: =random(21)-10; write(' ',a[i]); os: =(os+(a[i] mod 10)) mod 10; end; writeln; if os mod 2 = 0 then writeln('сумма - четное число') else writeln('сумма - нечётное число'); write('элементы, оканчивающиеся нулём: '); for i: = 1 to n do if a[i] mod 10 = 0 then write(' ',a[i]) end.

niceglotatel

Информатика

4,5(67 оценок)

'zdacha in vb.net module module1 sub main() dim n as integer=console.readline() dim mas(n),sum as integer for i=1 to n mas(i)=val(console. sum+=mas(i) if mas(i) mod 10=0 then console.writeline(mas(i)) next if sum mod 2=0 then console.writeline("chetnoe chislo") else console.writeline("nechetnoe chislo") end sub end module