Напишите программу на паскале.
10-11 класс
|
Сформировать массив n(6) случайных чисел,выбранных на интервале от -5 до 8,вывести на экран первоначальный массив,отсортированный по возрастанию и сумму элементов массива
var a:array[1..6] of integer;
i,j,s,p:integer;
begin
for i:=1 to 6 do begin
a[i]:=random(-5,8);
s+=a[i];
write(a[i],' ');
end;
for i:=1 to 5 do
for j:=1 to 6-i do
if a[j]>a[j+1] then begin
p:=a[j];
a[j]:=a[j+1];
a[j+1]:=p;
end;
writeln;
for i:=1 to 6 do
write(a[i], ' ');
writeln;
writeln(s);
end.
Другие вопросы из категории
Написать программу, которая выводит на экран пять разноцветных бусин.
В програме Поскаль
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Напишите программу на Паскаль которая даст ответ попадет точка в заштрихованную область или нет