Нужна программа на pascalabc 1.нарисуйте блок-схему следующего алгоритма: 1)пользователь вводит размер целочисленного массива 2)программа выделяет память под данный массив 3)в цикле инициализируются значения всех элементов массива,причем для элементов с нечетным индексом организуется ввод значений пользователем, а для элементов с четным индексом значения случайным образом 4)полученный массив сортируется по возрастанию 5)результат сортировки записывается в файл. 2. на выбранном вами языке программирования разработайте программу, которая бы реализовала блок-схему, созданную вами в предыдущем . 3.на выбранном вами языке программирования постройте три класса ( базовый и 2 потомка), описывающих некоторых студентов. студентам назначается стипендия, при этом правила ее назначения различны для парней (один из потомков) и девушек ( второй потомок). известны фио студентов, их пол, группа и средний . парням выплачивается фиксированная стипендия, если их средний выше или равен заданному пороговому значению в 4 , а девушкам стипендия выплачивается всегда и рассчитывается она путем умножения среднего на фиксированный коэффициент. создайте код, описывающий классы и их члены для моделирования этой ситуации. представьте сигнатуру метода расчета стипендии. программа нужна к 15.07.19
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.
Пример:
-7 15
-105
2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.
Пример:
100
5050
3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.
Пример:
2 5
54
4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.
Пример:
10 20 5
11 12 14 14 18
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.