Помогите с информатикой, пожалуйста. (Pascal) 1.Сложить четные элементы в массиве (10 рандомных элементов в диапазоне от 0 до 99
Помогите с информатикой, пожалуйста. (Pascal) 1.Сложить четные элементы в массиве (10 рандомных элементов в диапазоне от 0 до 99). 2.Найти произведение всех элементов массива (10 рандомных элементов от 0 до 99) 3.Сложить все элементы массива в диапазоне от 50 до 60(10 рандомных элементов от 0 до 99)
Program vasha_zadacha_1;var b,c:integer; a:array [1..20] of integer; begin randomize; b:=0; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==>', a[c]); if (a[c] mod 2 = 0) then b:=b+a[c]; end; writeln('сумма чётных элементов массива', b);<span> end.
program vasha_zadacha_2; var b,c:word ; a:array [1..20] of integer; begin randomize; b:=1; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==> ', a[c]); b:=b*a[c]; end; writeln('произведение всех элементов массива ', b);<span> end.
program vasha_zadacha_3; var b,c:word ; a:array [1..20] of integer; begin randomize; b:=0; for c:=1 to 10 do begin a[c]:=random(0,99); writeln('элемент массива ==> ', a[c]); if (a[c] >= 50) and (a[c]<=60) then b:=b+a[c]; end; writeln('сумма элементов в диапазоне от 50 до 60 ', b);<span> end.</span></span></span>
{Таким образом, фразу "Домашняя работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}
Ответ B. Пояснение: <span>01110100 во 2 = 116 в 10 = буква t в таблице ANSI </span>01100101 во 2 = 101 в 10 = буква e <span>в таблице ANSI</span> 01110011 во 2 = 115 в 10 = <span>буква </span>s в таблице ANSI 01110100 во 2 = 116 в 10 = <span>буква </span>t <span>в таблице ANSI</span>