В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

Информационная безопасность Аббревиатура CIA – это...

Confidence, Isolation, Affirmation

Candor, Incorruption, Assurance

Confidentiality, Integrity, Availability

Covertness, Incorruptibility, Attestation

Показать ответ
Ответ:
Ксюша00111
Ксюша00111
22.08.2021 18:25
VAR
   i, j, k: Integer;
   a, b: Array [1..5] of Array [1..5] of Integer;
BEGIN
   For i := 1 to 5 do 
   For j := 1 to 5 do Read(a[i][j]);

   k := 1;
   For i := 1 to 5 do
      If (Odd(i)) then
         For j := 5 downto 1 do begin
            b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End
      Else 
         For j := 1 to 5 do begin
            b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End;  

   For i := 1 to 5 do begin
      For j := 1 to 5 do Write(b[i][j]:2, ' ');
      Writeln; End;
END.
0,0(0 оценок)
Ответ:
DeNiSNoNs
DeNiSNoNs
09.07.2020 16:18
У меня работа с одним массивом.
Паскаль.
---
uses crt;
const N=4;
        M=6;
var a: array [1..n,1..m] of integer;
    x,y,k,p: integer;
begin
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     write('k='); readln(k);
     if k<=m then p:=m-1 else p:=m;
     for y:=k+1 to m do
          for x:=1 to n do
             a[x,y-1]:=a[x,y];
     for x:=1 to n do begin
         for y:=1 to p do
             write(a[x,y]:4);
         writeln;
     end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота