Ребята, очень прошу посодействовать. Только не всё в одной проге, а
Ребята, очень прошу посодействовать. Только не всё в одной проге, а сходу несколько. Составьте хоть две программки, очень нужно(
А. составьте программку которая наполняет массив a[1..10] случайными числами в спектре от 1 до 10 и вычисляет сумму частей массива с четными значениями
Б.
составьте программку которая наполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисляет творенье частей массива с нечётными значениями
В.
составьте программку которая наполняет массив a[1..10] случайными числами в спектре от 1 до 10 и вычисляет среднее арифметическое частей массива
Г.
составьте программу которая наполняет массив a[1..10] случайными числами в спектре от 1 до 10 и вычисляет среднее арифметическое частей массива с четными значениями.
var a: array [1..10] of integer;
i, m: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] =gt; ', a[i]);
if (a[i] mod 2 = 0) then m := m + a[i];
end;
writeln(m);
end.
2)
var a: array [1..10] of integer;
i, m: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] =gt; ', a[i]);
if (a[i] mod 2 = 1) then m := m * a[i];
end;
writeln(m);
end.
3)
var a: array [1..10] of integer;
i, m: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] =gt; ', a[i]);
m := m + a[i];
end;
writeln(m / 10);
end.
4)
var a: array [1..10] of integer;
i, m, c: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] =gt; ', a[i]);
if (a[i] mod 2 = 0) then
begin
m := m + a[i];
c := c + 1;
end;
end;
if (c gt; 0) then writeln(m / c);
end.
Прошу Вас =)
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.