Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа
var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.
Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Левым сверху рисунок нужно его раскрасить одну клетку чтоб похоже была на серидину снизу
Надеюсь я ответил на твой вопрос
Ответ:
Ответ истена True
Gvhvhvhvhbhbjbjbjbjvyvyv8yvybuv9ug
Для кодирования одного из 512 цветов требуется log(2)512=9 бит (2^9=512).
8192 Мбайт = 8192*1024*1024*8 бит
Длительность видеоролика = 8192*1024*1024*8 / (1440*900*50*9) ≈ 117 с