Пожалуйста помогите побыстрее)))))
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Ответы
Ответ дал:
0
1) const
n = 25;
var
a :array[1..n] of integer;
i, kol, sum :integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(50);
sum:= 0; kol:= 0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
begin
inc(kol);
sum:= sum + a[i];
end;
end.
2) const
n = 25;
var
a :array[1..n] of integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(50);
for i:= 1 to n do
if a[i] mod 2 = 0 then
a[i]:= sqr(a[i])
else
a[i]:= a[i] * 2;
end.
n = 25;
var
a :array[1..n] of integer;
i, kol, sum :integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(50);
sum:= 0; kol:= 0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
begin
inc(kol);
sum:= sum + a[i];
end;
end.
2) const
n = 25;
var
a :array[1..n] of integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(50);
for i:= 1 to n do
if a[i] mod 2 = 0 then
a[i]:= sqr(a[i])
else
a[i]:= a[i] * 2;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад