Помогите написать 2 программы ** паскале №13,14 пожалуйста

Question

Помогите написать 2 программы на паскале №13,14 пожалуйста

---

Answer 1

13)
const n=10;
var l:array[1..n] of integer;   
i,max,k:integer;
begin
for i:=1 to n do begin
l[i]:=random(-5,5);
write(l[i],' ');
end;
max:=l[1]; k:=1;
for i:=1 to n do
if l[i]>max then  begin     
max:=l[i];     
k:=i;   
end;   
writeln; 
for i:=k to n-1 do   
l[i]:=l[i+1]; 
 writeln('Преобразованный массив:'); 
for i:=1 to n-1 do write(l[i],' ');
end.

Comments

14)

---

uses crt;
var f:text;
    s:string;
    mx:byte;
begin
clrscr;
assign(f,'Note.txt');
reset(f);
mx:=0;
while not eof(f) do
 begin
  readln(f,s);
  if length(s)>mx then mx:=length(s);
 end;
close(f);
write('Наибольшая длина строки в файле=',mx);
readln
end.

---

В задаче 13) , а где собственно список List ?

---

Какой List? Вы где-то увиделии подобное слово?

---

Привожу дословно задание 13) :  Дан СПИСОК   L из N целых чисел.

---

И? Список это масив из n целых (integer) чисел

---

Список - это структура данных, например, в ПаскальАВС

---

Список - это абстрактный тип данных

---

Это вполне конкретный класс со своими методами и свойствами

---

тут речь идет не о record.