Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Правильно, что обратилась к нам =). Итак, ОПЕРАЦИОННАЯ СИСТЕМА отвечает за работу компьютера с человеком, интерфейс и стандартное програмное обеспечение. От того, какая у тебя операционка, зависит написание тегов ( например объединять теги переноса строки в один или нет). Примеры операционных систем: Windows, Linuw, Unix, Ubuntu, Macintosh, IOS, WindowsMobile, Android, MacOS и т.п. этого хватит?
<span><span>F = (¬A·¬B·C)v(¬A·B·¬C)v(¬A·B·C)v(A·¬B·¬C)v(A·B·C)
</span></span><span>Предлагаю Excel программку, которая эту функцию строит автоматически.
</span>
Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Примеры?
Дискета
Жесткий диск
Компакт-диск
Карта памяти
Флешка
Кассета
Пластинка
Перфокарта
Можно долго продолжать этот список...