с тестом Дано: :=113.При последнем выполнении тела цикла =.
2 Запиши программу на языке Паскаль.
Вычисли сумму =∑=1+12+1, если значение вводит пользователь.
Если =8, то вывод на экран (ответ округли до сотых)
3 Запиши программу на языке Паскаль.
Вывести на экран числа от 4 до 9 в обратном порядке.
var
i: integer;
begin
for i:= downto do
writeln();
readln;
end.
4
Заполни пропуски в программе.
Вывод на экран кубов чисел от 10 до 6.
var
:integer;
begin
for n:= downto do
writeln (n*n*n);
readln;
end.
nn = 100; { максимальное количество элементов }
var
a:array[1..nn] of integer;
i,n,k,kn,kp,ko,ke: integer;
begin
Writeln('Введите количество элементов в массиве (n<=100): ');
Readln(n);
Writeln('Введите элементы массива');
kn:=0; kp:=0; ko:=0; ke:=0;
for i := 1 to n do
begin
Read(k); a[i]:=k;
if k>0 then Inc(kp)
else if k<0 then Inc(kn);
if (k mod 2)=0 then Inc(ke) else Inc(ko)
end;
Writeln('Положительных элементов ',kp,', отрицательных ',kn);
Writeln('четных элементов ',ke,', нечетных ',ko);
end.
Тестовое решение:
Введите количество элементов в массиве (n<=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных элементов 8, отрицательных 4
четных элементов 6, нечетных 7