Помогите с информатикой, пожалуйста. (Pascal)
1.Сложить четные элементы в массиве (10 рандомных элементов в диапазоне от 0 до 99).
2.Найти произведение всех элементов массива (10 рандомных элементов от 0 до 99)
3.Сложить все элементы массива в диапазоне от 50 до 60(10 рандомных элементов от 0 до 99)
антагонист:
во второй задаче получается неприлично большое число
Ответы
Ответ дал:
2
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад