Установите соответствие понятий и определений. Граф, вершины или ребра (дуги) которого характеризуются - id1730211620200424 от Fura44 24.04.2020 06:12

Question

Информатика: Установите соответствие понятий и определений. Граф, вершины или ребра (дуги) которого характеризуются дополнительной информацией Граф, вершины которого соединены дугами (линиями со стрелками) Граф, вершины которого соединены ребрами (линиями без стрелок),

Fura44 · Accepted Answer

Program programma;
uses crt;
var
b:array[1..100]of integer;
i,n,a,max,k,t:integer;
begin
clrscr;
write('Введите размер массива N = ');
readln(n);

write('Введите число A = ');
readln(a);
for i:=1 to n do
begin
write('b[',i,'] = ');
readln(b[i]);
end;

for i:=1 to n do
begin
if abs(b[i])>a then k:=k+1;
if b[i] mod 5=0 then t:=t+1;
end;

writeln;
writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k);
writeln('Количество элементов массива, кратных 5 = ', t);

for i:=1 to n do
begin
if b[i]> max then max:=b[i];
end;

for i:=1 to n do
begin
if b[i]= max then begin
write (-max,' '); end
else
write(b[i],' ');
end;

end.

MOGZ ответил