Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28
<em>ПАСКАЛЬ</em>
var
x,y,z:real;
function ST(a,b,h:real):real;
begin
ST:=(a+b)*h/2
end;
begin
Write('Введите длины оснований и высоту трапеции: ');
Read(x,y,z);
Writeln('Площадь трапеции равна ',ST(x,y,z):0:5)
end.
<u>Пример</u>
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000
Пронумеруем исходные утверждения.
1) круг не белый и не зеленый.
2) синяя фигура лежит между ромбом и красной фигурой.
3) треугольник не синий и не зеленый.
4) квадрат лежит между треугольником и белой фигурой.
Теперь рассмотрим каждое из них.
Из (1) круг не белый, а из (4) не белые также квадрат и треугольник. Следовательно, <em>белым может быть только ромб</em>.
5) Если ромб белый, то он не зеленый. Не зеленые также круг (1) и треугольник (3). Тогда <em>зеленый квадрат</em>.
6) Если квадрат зеленый (5), то он не синий и не красный. Не синие также ромб (2) и треугольник (3). Следовательно, <em>синий круг</em>.
7) <em>Треугольник красный</em>, поскольку остальные цвета уже распределены.
<u><em>Ответ:</em></u> Квадрат зеленый, круг синий, ромб белый, треугольник красный.
const
n = 3;
var
a: Array[1..n, 1..n] of Integer;
j, i, s: integer;
begin
Randomize;
Writeln('Случайная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(51) - 25;
Write(a[i, j]:5);
end;
Writeln
end;
for i := 1 to n do
begin
j := n + 1 - i;
s := s + a[i, j];
end;
Writeln('Сумма элементов побочной диагонали: ', s);
Readln
end.
1) человек - человек
2) учитель - класс
3) газета - человек
