Глупая надежда спрашивать решение..но все же.. 1.Создать массив на 20 значений. 2.Загрузить массив случайными числами от 10 до 100.Как
5-9 класс
|
выразился мой учитель это подсказка: P=INT(RND*90+10)
3.Выполнить сортировку массива по возрастанию.
4.Вывести значение массива в столбик на экран.
Пожалуйста помогите..сегодня весь класс двойки получил...
1) var a:array [1..20] of integer;
i:integer;
2)
randomize;
for i:= 1 to 20 do
a[i]:=random(90)+10;
3) n:=20;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
4) for i:= 1 to n do
writeln(a[i]);
еще бы не двойки, легкотня то такая
Я так понимаю язык Бейсик поэтому
1) DIM a(20)
2) FOR i=1 to 20
LET a(i)=INT (RND*90+10)
NEXT i
3) LET n=20
FOR i:=1 to n-1
FOR j:=j+1 to n
IF (a[i]<a[j]) THEN LET t=a(i): LET a(j)=t: LET a(i)=a(j)
NEXT j: NEXT i
4) FOR i=1 to n
PRINT AT i,2; A(i)
NEXT i
Примерно вот так , прошу прощения если что то напутал в синтаксисе на Бейсике писал последний раз лет 15 назад
Другие вопросы из категории
ball.exe 35600 10.05.10 10:30
ball.txt 2050 15.05.10 18:50
ball.rez 1700 25.09.12 14:25 Какую информацию о файле ball.exe можно получить из этого списка
ТЕРНПРИ
в) НКОКИЛО
г) ПДЛЕЙИС
температуру ''горячих'' (>50 °C) участков радиатора.
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
ОКРУЖНОСТЕЙ С ЦЕНТРОМ В ТОЧКЕ (200,200) И РАДИУСОМ 10, 20, 30, 40, 50 (ПРИМЕНИТЕ КОМАНДУ 'For') 8 КЛАСС!!!
На паскале печатает на экране в строчку, через запятую все натуральные числа от 1 до 100, которые делятся на это число без остатка