Умоляю помогите! Заранее спасибо! 1 Тбайт-это: А) 1024 Гбайт Б) 1024 Пбайт В)1000 Гбайт Г)1000 Пбайт

Дан одномерный массив из N целых чисел. Найти в массиве максимальную длинну последовательности из подряд идущих элементов каждый

Алена-999

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
var maxl:=0; // максимальная из длин
var currl:=1; // текущая длина
for var i:=1 to a.Length-1 do
 if a[i]>=a[i-1] then Inc(currl)
 else begin
 if currl>maxl then maxl:=currl;
 currl:=1
 end;
if currl>maxl then maxl:=currl;
Writeln('Максимальная длина ',maxl);
end.

Тестовое решение:
n= 15
4 2 4 4 1 1 1 7 4 9 4 4 5 4 7
Максимальная длина 4

0 0

1 год назад

Прочитать ещё 2 ответа

Чтобы прочесть слово, нужно пройти по клеткам так, как ходит шахматная фигура конь, начиная ход с цифрыПомогите пожалуйста дам 5

юркон

1.алгоритм

2.мегагерц

3.величина

4.гигабайт

5.дисковод

6 документ

7 оператор

8 удаление

9 парамент

10 протакол

11 редактор

12 рекурсия

13 сумматор

14 телетайп

15 картридж

16 лексикон

17 носитель

18 шифратор

0 0

4 года назад

Помогите с задачей в pascal.введите символ с клавиатуры Найдите сумму произведение и среднее арифметическое и среднее геометриче

pocimon

Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.

Пример:
&
code = 38
s = 11 p = 24 sr = 5.50

0 0

1 год назад

Pascal ABC! Решите! Заменить группы подряд идущих нулей на один нуль.

Seruy [7]

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.

Тестовое решение
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)

0 0

3 года назад

Таня нашла старый калькулятор со стертыми клавишами алгебраических операций сложения,вычитания,умножения и деления(столбец D).По

Конец фильма [17]

Таня нашла старый калькулятор со стертыми клавишами алгебраических операций сложения,вычитания,умножения и деления(столбец D).Последовательно набравB2 A2D4 A3 C1 D3 A2 C3 C4,ОНА ПОЛУЧИЛА 30Какое число получит Таня в результате ,если наберет B3 A1 D1 A3 D4 A3 C2 C4

0 0

4 года назад