решите паскаль. очен6ь срочно надо((

Что такое фбибсю ?)
У нас Pascal в 10 был= )

фбибсю это a,b,c. punto switcer перевел раскладку((

22.Если я правильно понял условие.

program abc;
var a,b,c:integer;
begin
read(a,b,c); a:=a+b;
if a/2=c then write('C - среднее арифм.') else write('error');
end.

сппасибор сем. щас поосмотрим че правильно что нет. тему пока не кройте

24, в том то и дело, что всё правильно

Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;
for i:=1 to n do
p:=p+(2*i-1)*2*i;
writeln('Значение выражения равно ',p);
end.
кто за плюс решит эту задачу через repeat-untel и whihe. до 8 утра надо сдать мне. выручайте еще

23. ForGotTen_HHTеаm, а в паскале нету тернарного оператора?

27.А фиг его знает.
Я php самоучка,точно так-же как и в паскале =D
По первому причем даж учебников не читал.

while

Program AfigEgoZnaeT;
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;

while i<n do begin
i:=i+1;
p:=p+(2*i-1)*2*i; end;
writeln('Значение выражения равно ',p);
end.

Until

Program AfigEgoZnaeT;
Uses crt;
Var n,i,p:integer;
Begin
Clrscr;
write('Введите натуральное число ');
readln(n);
p:=0;
i:=1;

Repeat
p:=p+(2*i-1)*2*i;
i:=i+1;
until i>n;

writeln('Значение выражения равно ',p);
end.

26.ЗЫ,я еще ни одного не получил (=

Ваш положительный голос за пользователя ForGotTen_HHTеаm успешно оставлен!
В данный момент его авторитет: 51
Всего положительных голосов: 57
Всего отрицательных голосов: 6

Uses Crt;
var a:Array[1..100] of integer;
i,j,min,max,b,c,d,n: integer;
begin
Clrscr;
randomize; n:=random(10);
writeln('Введите массив:');
for i:=1 to n do
begin write('a[',i,']='); readln(a[i]); end;
for i:= 1 to n do
begin min:=a[i]; max:=a[i];
for j:=i to n do
begin
if a[j]<min then begin min:=a[j]; b:=j; end;
if a[j]>max then begin max:=a[j]; c:=j; end;
end;
d:=a[i]; a[i]:=a[b]; a[b]:=a[c]; a[c]:=d;
end;
writeln('Преобразованный массив:');
for i:=1 to n do
write('a',i,'=', a[i],' ');
end.
переделайте кто нить задачу что бы работала нормально и массив вводился автоматически.