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.
Решение 1 и 2 задачи на языке Pascal в прикрепе.