Программирование элементов разветвляющейся структуры ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Кафедра МО и ПЭВМ   Лабораторная работа № 7 Тема: «Программирование элементов разветвляющейся структуры» Выполнил: студент гр. 02ТП1 Пахомов В. Е. Проверил: Ракова А. Н. 2003 Задание А. Записать в массив Y(20) квадраты чисел находящиеся в массиве X(20).   Программа: uses crt; var i : integer; a : array[1..20] of integer; c : array[1..20] of integer; begin clrscr; writeln('Первый массив : '); for i := 1 to 20 do begin a[i] := random(30); write (' ', a[i]); end; writeln; for i := 1 to 20 do c[i] := a[i] * a[i]; writeln('Получившийся массив : '); for i := 1 to 20 do write (' ', c[i]); writeln; readkey; end. Блок-схема                                                         Задание Б. Найти наибольшшее число среди отрицательных элементов массива B(35)   Программа: uses crt; var ar : array[1..35] of integer; max, i : integer; begin clrscr; writeln; randomize; for i := 1 to 35 do begin ar[i] := random(60)-30; write(' ', ar[i]); end; max := -maxint; for i := 1 to 35 do if ar[i] < 0 then begin if max < ar[i] then max := ar[i]; end; writeln; writeln('Наибольшее число : ', max); readkey; end. Блок-схема