Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
Поставить первую букву п,третью л,четвёртую к
Тут подобных вопросов десяток был уже.
<span>объём_памяти = длина_изображения * ширина_изображения * глубина_цвета </span>
<span>Отсюда глубина цвета в байтах = объём/площадь или 256к*1024/(1024*512)=0,5 </span>
<span>в битах это 8*0,5=4 на каждый пиксель </span>
<span>ими можно закодировать 2^4=16 цветов </span>
<span>первые 1024 взялись из числа байт в килобайте </span>
1.разбор слова по составу.
2.роль разных частей речи в предл.
3.самостоят.части речи
4.фигуры
5.связаны с компьютером
6.действия с информацией