var
a:array[1..100, 1..100] of real;
n, m, i, j:integer;
Sr:real;
begin
write('Введите количество строк матрицы '); readln(m);
write('Введите количество столбцов матрицы '); readln(n);
writeln('Исходный массив:');
Sr := 0;
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(101) - 50;
write(a[i, j]: 5:0);
Sr := Sr + a[i, j];
end;
writeln;
end;
Sr := Sr / (n * m);
writeln('Среднее арифметическое равно ', Sr);
writeln('Элементы больше среднего арифметического:');
for i := 1 to m do
for j := 1 to n do
if a[i, j] > Sr then
writeln('a[', i, ', ', j, '] = ', a[i, j]);
end.
Program razgovor;
uses crt;
var c1,c2,c3:integer;
t1,t2,t3:integer;
begin
Write('Введите цену разговора с первым пунктом, с1= ');
Readln(c1);
Write('Введите цену разговора со вторым пунктом, с2= ');
Readln(c2);
Write('Введите цену разговора с третьим пунктом, с3= ');
Readln(c3);
Write('Введите длительность разговора с первым пунктом, t1= ');
Readln(t1);
Write('Введите длительность разговора со вторым пунктом, t2= ');
Readln(t2);
Write('Введите длительность разговора с третьим пунктом, t3= ');
Readln(t3);
clrscr;
Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаты точки x и y:');
if x=0 then begin
if y=0 then Writeln('Точка лежит в начале координат')
else Writeln('Точка лежит на оси ординат (y)');
exit
end
else
if y=0 then begin
Writeln('Точка лежит на оси абсцисс (х)');
exit
end;
if x>0 then
if y>0 then Writeln('Точка принадлежит I четверти')
else Writeln('Точка принадлежит IV четверти')
else
if y>0 then Writeln('Точка принадлежит II четверти')
else Writeln('Точка принадлежит III четверти')
end.
Пример
Введите координаты точки x и y: 12.4 -7
Точка принадлежит IV четверти