М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
1Кat3
1Кat3
17.08.2020 10:14 •  Информатика

Как обратить массив в pascale abc? (тоест 1 2 3 4 5 сделать 5 4 3 2 1

👇
Ответ:
2424r
2424r
17.08.2020
Const N = 10;
var
    a: array[1..N] of integer;
    i: byte;
    b: integer;
begin
    for i:=1 to N do
        read(a[i]);
 
    for i:=1 to N div 2 do begin
        b := a[i];
        a[i] := a[N-i+1];
        a[N-i+1] := b;
    end;
 
    for i:=1 to N do
        write(a[i],' ');
 
    writeln;
end.
4,4(31 оценок)
Открыть все ответы
Ответ:
ксюнчик12
ксюнчик12
17.08.2020

program figyri;

uses crt,graphABC;

var xc,yc:integer;

   m:integer;

begin

xc:=windowwidth div 2;

yc:=windowheight div 2;

repeat

write ('Введите число');

read (m);

if m>2 then

   begin

     setpencolor(clGreen);

     rectangle(xc-100,yc-100,xc+100,yc+100);

     floodfill(xc,yc,clGreen);

     readkey;

    end;

if m<2 then      

   begin

     setpencolor(clRed);

     line (xc-100,yc+50,xc+100,yc+50);

     line (xc+100,yc+50,xc,yc-100);

     line(xc,yc-100,xc-100,yc+50);

     floodfill(xc,yc,clRed);

     readkey;

    end;

if m mod 2=0 then

    begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д

4,4(76 оценок)
Ответ:
ajshshdj
ajshshdj
17.08.2020

```

var a:array[1..100,1..100]of integer;

N, M, i, j, mini, minj, maxi, maxj :integer;

 

begin

write('N, M -> ');

readln(N, M); {считываем размер матрицы}

write('Input matrix -> ');

for i:=1 to N do for j:=1 to M do

begin

 write('A[',i,',',j,'] -> ');

 readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini:=1;

minj:=1;

maxi:=2;

maxj:=2;

for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then

begin

 maxi := i;

 maxj := j;

end else if a[i, j] < a[mini, minj] then

begin

 mini := i;

 minj := j;

end;

writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end. ```

4,7(6 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ