Паскаль, срочно, 100 баллов
Задание 1. Сформировать массив из 10 элементов, где C[x]= . Распечатать элементы массива столбиком.
Задание 2. Сформировать массив из 5 элементов (элементы массива вводятся с клавиатуры). Вывести его. Найти минимальный элемент массива и вывести его. Заменить его на противоположный. Вывести массив.
Задание 3. Сформировать массив из 5 элементов, (элементы массива вводятся с клавиатуры). Найти количество элементов меньших 5. Умножить каждый элемент массива на полученное значение. Вывести новый массив в строку.
Ответы
1.
type
vector = array [1..10] of real;
var
x:integer;
c:vector;
begin
for x:= 1 to 10 do
begin
c[x]:=sqr(x) + sqrt((11 + x) / (5 + 2 * sqr(x)));
write(c[x]:0:3, #10);
end;
end.
2.
type
vector = array [1..5] of integer;
var
arr:vector;
i, min, MinInd:integer;
begin
min:=maxint;
MinInd:=0;
write('Введите элементы массива: ', #10);
for i:=1 to 5 do
begin
readln(arr[i]);
if (arr[i] < min) then
begin
min:=arr[i];
MinInd:=i;
end;
end;
write('Выведем массив на экран: ');
for i:=1 to 5 do
write(arr[i], ' ');
write(#10, 'Минимальный элемент массива: ', min);
write(#10, 'Заменим его на противоположный и выведем массив: ');
arr[MinInd]:=arr[MinInd] * (-1);
for i:=1 to 5 do
write(arr[i], ' ');
end.
3.
type
vector = array [1..5] of integer;
var
i, count:integer;
arr:vector;
begin
count:=0;
write('Введите элементы массива: ', #10);
for i:=1 to 5 do
begin
readln(arr[i]);
if arr[i] < 5 then
inc(count);
end;
write('Выведем массив на экран: ');
for i:= 1 to 5 do
write(arr[i], ' ');
write(#10, 'Количество элементов меньших 5: ', count);
write(#10, 'Умножим каждый элемент массива на это количество: ');
for i:=1 to 5 do
begin
arr[i]:=arr[i] * count;
write(arr[i], ' ');
end;
end.
