Методические указания: Программирование элементов разветвляющейся структуры

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 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. Блок-схема