1. Заполнить массив из 20 элементами цифрами от 1 до 20. Вывести его элементы в обратном порядке.
2. Заполнить массив из 10 элементов нечетными числам (команду read не использовать). Вывести массив на экран в строку
3. Заполните массив из 10 элементов случайными числами в интервале от 0 до 100 и
подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50.
4. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.
5. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;
Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.
Через if :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.