Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите с информатикой, пожалуйста. (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); 
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); 
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); 
end.