K=4*30*50=6000 символов
I = K * i
I=4500 байт = 36000 бит
i=6
Шляпка (головной убор и шляпка гвоздя), игла (швейная и игла ежа), звезда, кисть, груша, тарелка, лист. НЕ путать многозначные слова с омонимами!
Program n1;
var a: array[1..10] of integer;
i,im,om: integer;
begin
write('исходный массив: ');
a[1]:=random(21)-10;
write(a[1],' ');
om:=a[1];
for i:=2 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]>om) then
begin
om:=a[i];
im:=i;
end;
end;
writeln;
writeln('максимальный среди отрицательных: a[',im,']=',om);
end.
Два раздела: (I) раздел описаний (блоки USES, LABEL, CONST, TYPE, VAR, а также описание процедур и функций) и (II) исполняемую часть (основной блок) . Раздел описаний, в принципе, не является обязательным и может вовсе отсутствовать. Заголовок программы, начинающийся с ключевого слова PROGRAM, выполняет исключительно декоративную функцию, и поэтому также может отсутствовать.
<span>Основной блок - это собственно программа, использующая все, что было описано и объявлено выше. Он обязательно начинается словом BEGIN и заканчивается словом END с точкой. Любой текст после завершающей точки игнорируется компилятором</span>