Имеется массив целых чисел размером n (задается константой). заполнить его случайными целыми числами в заданном диапазоне (вводится с клавиатуры). вывести его на экран.
//Pascal const N = 10; var A: array [1..10] of integer; i: byte; Min, Max: integer; begin randomize; write('Введите диапазон случайных чисел: '); readln(Min, Max); for i := 1 to 10 do begin A[i] := random(Max-Min+1)+Min; write(A[i]:4); end; end.
function ReadInteger(prompt: string): integer; Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer; Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ' '): sequence of T; Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0); Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
const N = 10;
var
A: array [1..10] of integer;
i: byte;
Min, Max: integer;
begin
randomize;
write('Введите диапазон случайных чисел: ');
readln(Min, Max);
for i := 1 to 10 do
begin
A[i] := random(Max-Min+1)+Min;
write(A[i]:4);
end;
end.