Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
<u>Понятие:</u>
Операционная система-обеспечивает управление и обрабатывание аппаратными средствами компьютера,а также служит устройством прикладных программ и вычислительных систем..
Делятся на две группы это:1)"программы, управляющие оборудованием;2)программы, управляющие другими программами"
Например:Допустим мы купили стиральную машинку,на ней установлена программа или чип, котрая выполняет определённый запрограммированный порядок действий.
Виды:
Вычислительная система у операционной системы используется для различных типов сложности задач.
Многопользовательская система(т.е позволяет определённому кол-ву пользователям одновременно иметь доступ к одной системе)
Однопользовательская система(т.е всё то что не обладает свойствами
многопол.системы)
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
2*2=4
????!!!?!!?!!?!!!?!??
