5 6)
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=i to n
if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j
next i
for i=1 to n
print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then p=p*a(i)
if a(i)<0 then s=s+a(i)*a(i)
if a(i)=0 then a(i)=12
next i
for i=1 to n
print a(i);
next i
print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0
for i=1 to n
input a(i)
next i
for i=1 to n
if i mod 2 =0 then s=s+a(i)
next i
print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then k=k+1
if i mod 2 = 1 then s=s+a(i)
if a mod b = 0 then p=p*a[i]
next i
for i=1 to n
print a(i);
next i
print
print s
print p
print b
//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>
Var a,b:real;
begin
Write('a=');
readln(a);
write('b=');
readln(b);
writeln('p=',2*(a+b));
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6
Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите свой возраст');
read (vozrast);
if (vozrast >0) and (vozrast <18) then
write ('Вы еще очень молоды')
else if vozrast >18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.