Задача :
Пусть генератор случайных чисел заполнит массив из 10 вещественных чисел. Каждое число, помещаемое в массив, должно быть из диапазона значений от 0 до 20.
Внимание: 10- это размер массива, который определяется при описании и влияет на циклы.
0-20 –это диапазон значений, который определяется только в формуле.
Задание:
1) Выполните программу и запишите протокол.
2) Измените программу так, чтобы массивы поменял имя (c) и тип на целый
3) Измените программу так, чтобы в массиве уменьшилось количество элементов до 15.
4) Измените программу так, чтобы значение элементов определялось из диапазона [-10,10]
5) Измените программу так, чтобы готовый массив выводился в отдельной строке;
6) Найдите количество положительных элементов массива. Для этого:
− опишите переменную для накопления суммы (Kol);
− задайте ей начальное значение, равное 0 (до цикла);
− после определения значения элемента, введите условную структуру для проверки
если c[i]>0 то Kol:=Kol+1;
− после вывода массива , произведите вывод результата.
Обрати внимание на примерный протокол для выполнения результата
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.