Const n=3;{можно любое число}
var a:array [1..n] of Integer;x,q,i:Integer;b,c,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
c:=x;
Writeln(c:3:2,'-Naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
z:=q;
Writeln(z:3:2,'-Naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-seredne arifmitichne') ;
readln;
end.
- это "мозг" ПК, т.е. электронная микросхема, управляющая работой других устройств ПК и программами и данными на ПК
Всегда, когда щелкнут по флажку, повторить..., когда я получу, передать сообщение, касается...,
идти 10 шагов, повернуться в направлении, скрыть переменную, показать переменную, когда клавиша... нажата.
1.
var x,y,S:real;
begin
x:=4.5;
y:=3.5;
write('Стороны прямоугольника: ');
writeln('x=',x,' y=', y);
S:= x*y;
writeln('Площадь прямоугольника: S=', S:4:3)
end.
2.
begin
writeln('Идёт бычок, качается,');
writeln('Вздыхает на ходу:');
writeln('- Ох, доска кончается,');
writeln('Сейчас я упаду!')
end.
Не может <span>компьютер исполнить алгоритм написанный в графической форме - в виде блок-схемы. Для компьютера необходима программа, созданная на языке программирования.</span>