Чтобы в другое время тебя этот ужасный звук не беспокоил: все вместе спустили и всем хорошо)))
4096 символов заняли 2 кб, один символ занимает 2 байта. Посчитай теперь мощность.
<span>Вот тебе тут подсказывают, ты хоть чему-то при этом учишься? Или считаешь, что ты ходишь в школу, чтобы тебя там мучали, а деньги зарабатывать ты и так уже можешь? Да, есть такая работа, только ты не всегда будешь молодой, станет тебе 35, никто тебя покупать уже не будет. Может, дальнобойщик какой рублей за 300 возьмёт и всё. Лучше всё-таки учись.</span>
<span>1)
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.<span>
</span></span>
1. Окно обработки слайдов
2. Файл
3. С текущего или с начала
4. Из вкладок Главная Вставка Резензирование и т.д.
5. Вставка таблиц, картинок, текста, звука видео и т.д.
6. Готовый задний фон
7. Просмотр по времени
8. Для разных путей, или на всякий случай. Либо различные варианты одного слайда
9. Функции подсказок или подробного рассказа
10. Удаление и вырезание
11. См.5
12. Множество форматов, проверка на вирусы и защита паролем
13. Rar, zip, 7z, krz и т.д.
14. В текущую папку, в пусть. Определённого файла или всех.
15. Картинки или маленькие файлы
НЕ УВЕРЕН ЧТО ВСЁ ПРАВИЛЬНО !!