Var ar:array[1..20] of integer; i,s:integer; begin; randomize; writeln('Array:'); for i:=1 to 20 do begin; ar[i]:=random(10); write(ar[i]:4); s:=s+ar[i]; end; writeln; writeln('Result:',s); end.
Целесообразно архивировать только те данные, которые: - Сложно или невозможно восстановить (например, фотографии с фотоаппарата, которых на нём уже нет, то есть в случае их утраты восстановить их будет уже неоткуда) - Могут пригодиться в будущем (например, различные старые записи, личная электронная библиотека) - Файлы операционной системы (для последующего восстановления операционной системы в случае её краха) - Слишком долго восстанавливать (например, скачанные фильмы вроде как не особо нужны, но повторно качать их долго, так что может иметь смысл создать резервную копию)
i,s:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
s:=s+ar[i];
end;
writeln;
writeln('Result:',s);
end.