D) I) Ctrit
onlt+D,
2. Как изменить размер изображений в слоях?
3. Разместите фигуры в слоях Paint.Net так, чтобы при объе
получилось изображение робота.
4. Создайте в программе Paint.Net и распечатайте творчес
«Мой любимый сказочный герой».
6 - Информатика, 5 класс

Показать ответ

Ответ:

DimaAgent

25.06.2020 02:22

uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

0,0(0 оценок)

Ответ:

pocemonpickachu

12.04.2021 08:20

Program JuliaVanina;
uses crt;
var
r,min,max: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
min:=0;
max:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число, не превышающее 30000 по модулю');
writeln('(или введите 0 для конца последовательности) ');
while (r<>0) and (k<1000) do
    begin
      write('Ввод:');
      readln (r);
      if abs(r)<30000 then
          begin
            if min>r then min:=r;
            if max<r then max:=r;
            k:=k+1;
          end
        else
          begin
            writeln ('вы ввели слишком большое по модулю число');
            writeln ('Это число не будет учтено');
          end;
    end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Разность min и max составляет ',max-min);
end.