var
<span> a, h: </span><em>real</em>;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
<span>end.
-----------------------------------
var
a, b, m: <em>real</em>;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
<span>end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...</span></span>
Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
var a, b, c, i, n, g:integer;
mass: array[1..100000] of integer;
begin
readln(n);
writeln('Введите числа ');
for i:=1 to n do
begin
read(mass[i]);
if mass[i]>100 then b:=b+1;
if mass[i]>100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел больших ста ', b);
end.
Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
На материнскую плату (она же системная плата) ПК устанавливаются:
слоты расширения, жесткий диск и оперативная память.
(но это только из данного списка. На самом деле там намного больше деталей.)
Программа находится во вложении, надеюсь поможет.