Program sector;
const
n=10;
var
a,b:array [1..n,1..n] of integer;
z:real;
i,j,k: byte;
begin
randomize;
for i:=1 to n do begin
    for j:=1 to n do begin
        a[i,j]:=random (40);
        a[i,j]:=a[i,j]-20;
        write(a[i,j]:4);
    end;
    writeln;
    end;
z:=0;
for i:=1 to n do
    for j:=1 to i do
        z:=z+a[i,j];
z:=z/(n*n);
writeln('srednee = ',z);
for i:=1 to n do begin
    k:=1;
    for j:=1 to n do
        if a[i,j] > z then begin
           b[i,k]:=a[i,j];
           write(b[i,k]:4);
           k:=k+1;
        end;
    writeln;
end;
readln;
end.

0 0

1 год назад

Прочитать ещё 2 ответа

Напишите программу, которая определит по введенному двузначному числу цифру десятков и цифру единиц

Exter [17]

var a:integer;

begin

readln (a);

writeln('Цифра десятков: ',abs(a) div 10);

writeln('Цифра единиц: ',abs(a) mod 10);

end.

Пример:

Цифра десятков: 2

Цифра единиц: 5

0 0

4 года назад

Запишите число 12 345 в развернутой форме и в виде схемы Горнера.

Lessyana [3.1K]

Развернутая форма:
12345 = 1*10^4 + 2*20^3 + 3*10^2 + 4*10^1 + 5*10^0
Схема Горнера:
10*(10*(10*(10*1+2)+3)+4)+5

0 0

4 года назад

Программа С++ С клавиатуры вводится последовательность символов , завершающаяся символом ' S ' Создать односвязный список .Вывес

providik [675]

Задача не оптимальная и бредовая, что значит заменить все буквы? Удалить елемент, а затем на его место вставить новый, или просто заменить контекст одной буквой на вторую? Все это елементарно лечится отсеиванием ещё до внесения в список, зачем предпренимать лишние телодвижения?.. Тем не менее код в соотвествии с ТЗ, наверное

0 0

1 год назад