1 Задача
var
temp:real;
i, j: integer;
A: array[1..8] of real;
begin
i:=8;
repeat
begin
writeln('Введите целое число');
read(temp);
A[i]:=temp;
i:=i-1;
end;
until (i=0);
for i := 1 to 8 do // выводим на экран
write(A[i]:5);
end.
2 Задача
var
number, sum_of_posit_elements_in_array, number_of_posit_elements_in_array: integer;
arr: array[1..7] of integer;
begin
for number := 1 to 7 do
begin
arr[number] := random(50)-30;
write(arr[number]:5);
if arr[number]>0 then
begin
sum_of_posit_elements_in_array := sum_of_posit_elements_in_array + arr[number];
number_of_posit_elements_in_array:= number_of_posit_elements_in_array + 1;
end;
end;
writeln();
writeln('Сумма положительных элементов массива: ', sum_of_posit_elements_in_array);
writeln('Количество положительных элементов массива: ', number_of_posit_elements_in_array);
end.
3 Задача
var
number, sum_of_posit_elements_in_array, number_of_posit_elements_in_array: integer;
arr: array[1..9] of integer;
begin
writeln('Исходный массив');
for number := 1 to 9 do
begin
arr[number] := random(40)-20;
write(arr[number]:5);
if number mod 2 = 0 then
arr[number]:=arr[number]+1
else
arr[number]:=arr[number]*2;
end;
writeln();
writeln('Преобразованный массив');
for number := 1 to 9 do
write(arr[number]:5);
end.