Впаскале: ввести с клавиатуры 10 чисел - положительных и отрицательных. заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.

program num1; uses crt; var a : array [1..10] of integer; i : integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]) end; for i: =1 to 10 do if a[i]< 0 then a[i]: =abs(a[i]); writeln('********************************'); for i: =1 to 10 do writeln('a[',i,']=',a[i]); end.

//pascal abc.net v3.1 сборка 1172 const   n=5; var   ar: array[1..n] of integer;   i,c: integer; begin   randomize;   writeln('first array: ');     for i: =1 to n do     begin       ar[i]: =random(10);       write(ar[i]: 4);     end;   writeln;   c: =ar[n];   for i: =n downto 2 do   ar[i]: =ar[i-1];   ar[1]: =c;   writeln('final array: ');   for i: =1 to n do   write(ar[i]: 4); end. пример работы программы: first array:     9   3   4   3   0 final array:     0   9   3   4   3

Презентации сделанные на компьютере значительно облегчают жизнь делового человека.чаще всго люди используют их для того ,чтобы "донести" до людей определенную информацию.это происхдит потому ,что человек лучше всео воспринимает зрительную информацию ,и глядя на экран достаточно ясно понимает ,то что ему хотят объяснить.поэтому в школах часто ученики делают свои проэкты с презентаций.это легко ,быстро,надежно и качественно.раньше для того чтобы сделать проэкт школьником приходилось часами просиживать за столом ,вырезая,клея,рисую тллюстрации к проэктам,чтобы хоть как-то сделать свое выступление понятным.время изменилось.и компьютерам ,мы все это проделываем за секунды.и работа на которую уходило огромное количеств времени выплняется за час.презентаци   важныне только для школьников.например,  мои знакомые использут презентации для рзрроботки бизнес-плана.можно сделать вывод ,что презентации являют одним из главных компонентов нашей современной жизни