1. Логической переменной можно присвоить результат операции... •присваивания •сравнения •вывода •цикла - id1190777120220601 от SamDem 01.06.2022 18:46

Question

Информатика: 1. Логической переменной можно присвоить результат операции... •присваивания •сравнения •вывода •цикла 2.Квадрат x в Паскале можно получить с функции: •round(x) •abs(x) •sqrt (x) •sqr (x) 3.Дано логическое выражение: (а =2) and (a =34). Оно ложное, если ... •а 2 или а 34 •а € [2;34] •2 a •a 34 4.Выражение на языке Паскаль выглядит так: abs(sqr(z)-5*z+7) Как выглядит данное выражение на математическом языке? •z^2-5z+7 •(z^4-5z+7)^2 •| z^2-5z+7 | •√z^2-5z+7​

SamDem · Accepted Answer

//Визуально разделил циклы, чтобы было более читаемо

var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');

for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;

for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}

writeln;
writeln('Max:-',max); //выводим на всякий случай максимум

writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0;
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.

MOGZ ответил