Вывести в случайном порядке 10 чисел в промежутке от -5 до 5.
Программа: Pascal ABC
тема: Функция random.
1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.
Program evro;
var a,b,i: integer;
begin
writeln ('Введите курс евро');
readln (a);
for i:=5 to 25 do
begin
b:=i*a;
writeln (i,' евро =',b,' рублей');
end;
end.
PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50
Словами:Переменные S, a,b, i: integer;
ВВОД
a=33; b=66;S=N1.
Цикл по i от a+1 до b делать S=S+N;
