Составьте программу, которая заполняет массив случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значения.

230

264

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

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

Denaz

Информатика

4,8(12 оценок)

Program zadacha; var a: array [1..8] of integer; i, b, c: integer; begin randomize; for i : = 1 to 8 do a[i] : = random(11); b : = 0; c : = 0; for i : = 1 to 8 do begin if a[i] mod 2 = 1 then b : = b + 1 elsec : = c + a[i]; end; writeln('количество нечетных элементов массива равно ', b); writeln('сумма четных элементов массива равна ', c); readln; end.

89533807722qoznnn7

Информатика

4,8(51 оценок)

Вот решение подобной на языке паскаль. program abc; var b,c : string; begina: =0; readln(b); while a< 3 dobeginreadln(c); if c=b then beginwriteln('доступ резрешен'); endelse begina: =a+1; ; end; end; writeln('вы не угадали'); end.