Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.

0 0

4 года назад

Записать в двоичном и шестнадцптиричном коде имя Олеся

ilgiz565

Вот смотри , как то так

0 0

3 года назад

Расставь пропущенные команды на схеме алгоритма"погуляй с другом" друг согласился,предложи погулять,выйди из дома,позвони другу

Каролина56709 [736]

Смотри вложенный файл

0 0

4 года назад

Помогите решить плз !!!! В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число

bleachyoursoul

Procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.

файл input.txt: 11 15 21 13 -5
сумма: 60

0 0

3 года назад