ОЧЕНЬ НУЖНО 1. напишіть програму, яка вивидить на екран ваше им'я 20 разів 2. Змініть її так, щоб на екран виводилося лише половина цих слів.
3. Змініть її, щоб на екран виводилося одне слово
4.Знайдіть суму перших 100 натуральних чисел
5.Знайдіть суму перших 20 парних натуральних чисел
6.Знайдіть суму перших 20 непарних натуральних чисел
7. Знайдіть добуток перших 10 натуральних чисел
8. Знайдіть добуток перших 5 парних натуральних чисел
9. Знайдіть добуток перших 5 непарних натуральних чисел
10. Змініть програму так, щоб вона працювала для будь-якаї кількості чисел.
var
A: array [1 .. 5, 1 .. 4] of integer;
V: array [1 .. 20] of integer;
i, j, z: byte;
SUM1, SUM2, SUM3, MIN: integer;
begin
randomize;
writeln('***Сгенерированный массив***');
SUM1 := 0; SUM2 := 0; SUM3 := 0;
for i := 1 to 5 do
begin
for j := 1 to 4 do
begin
A[i, j] := random(30);
if ((A[i, j] >= 0) and (A[i, j] <= 5)) then SUM1 := SUM1 + A[i, j];
if ((A[i, j] >= 5) and (A[i, j] <= 15)) then SUM2 := SUM2 + A[i, j];
write(A[i, j]:6)
end;
writeln;
end;
writeln('Сумма элементов [0 5] = ', SUM1);
writeln('Сумма элементов [5 15] = ', SUM2);
MIN := A[3, 1];
for j := 1 to 4 do if A[3, j] < MIN then MIN := A[3, j];
writeln('Минимальный элемент в третьей строке = ', MIN);
writeln('***Вектор***');
j := 1;
z := 0;
while (z < 20) do
begin
for i := 1 to 5 do
begin
z := z + 1;
V[z] := A[i, j];
end;
j := j + 1;
end;
for i := 1 to 20 do writeln(V[i]:6);
for i := 20 downto 10 do SUM3 := SUM3 + V[i];
writeln('Сумма последних 10-ти элементов = ', SUM3);
readln;
end.