Этапы, которых стоит придерживаться при разработке любых баз данных: Сопровождение базы данных Разработка - id1310061420201113 от David3464 13.11.2020 00:58

Question

Информатика: Этапы, которых стоит придерживаться при разработке любых баз данных: Сопровождение базы данных Разработка и создание диаграмм. Тестирование ввода данных в таблицы. Выяснение задач, для которых будет использоваться разрабатываемая база.

David3464 · Accepted Answer

var

arr:array[1..1000] of integer;

i,N:integer;

max:integer;

begin

max:=1;

write('Укажите кол-во эл-ов - ');

read(N);

for i:=1 to N do//Присваивание и вывод массива

begin

arr[i]:=1+random(100);

write(arr[i],' ');

if arr[i]>max then max:=arr[i];

end;

writeln;

writeln('Максимальный эл-т - ',max);

for i:=1 to N do//Увеличение чет. эл-ов

begin

if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

write(arr[i],' ');

end;

end.

Объяснение:

MOGZ ответил