Ответ под номером Г)
..................................
Смотри вложения ->>>
<em>Будут вопросы - пиши!</em>
Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.
Что? .... Можно на русском?
//первый вариант
var
i, summ:integer;
begin
summ := 0;
for i := 1 to 99 do
if i mod 2 = 1 then
summ := summ + i;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
//второй вариант
var
i, summ:integer;
begin
summ := 0;
i := 1;
while i < 100 do
begin
summ := summ + i;
i := i + 2;
end;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.