Регистрация
ochvv15owqbd0
09.05.2022 12:56
Информатика
Есть ответ 👍

Построить таблицу истинности.
!

258
389
Посмотреть ответы 2

Ответы на вопрос:

ws4ewdrygfj
ws4ewdrygfj
4,8(72 оценок)

таблица истинности дана во вложении

Sergay121
Sergay121
4,5(42 оценок)
Var   a: array[1..12] of integer;   i,flag, indmax, indmin,k: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to 12 do    begin      a[i]: =random(20)-10;       writeln('a[',i,']=',a[i]);   end;   i: =0;     flag: =1;   while flag< > 0 do      begin          i: =i+1;       if a[i]< 0 then            begin              indmin: =i;         flag: =0;         end;         end;     i: =0;     flag: =1;   while flag< > 0 do     begin          i: =i+1;           if a[i]> 0 then          begin                indmax: =i;                 flag: =0;             end;               end;   k: =a[indmax]; //замена   a[indmax]: =a[indmin];   a[indmin]: =k;   writeln('конечный массив:   ');   for i: =1 to 12 do   writeln('a[',i,']=',a[i]);     end.

Популярно: Информатика