Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
max := 1;
writeln('Массив до: ');
for i := 1 to N do begin
a[i] := random(10);
write(a[i]:3);
if(a[i] > a[max]) then max := i;
end;
writeln(#10, 'Массив после: ');
for i := 1 to N do begin
if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];
write(a[i]:3);
end;
writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);
end.
Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....
<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Конъюнкция - логическая операция, истинная только при наборе 1 1.
Из данной таблицы истинности следует, что это инверсия конъюнкции. Следовательно, правильный ответ под буквой В.