Контрольная работа: Программирование решения задач

SysUtils;

var

s:string;Index, Count:integer;

n:real;

begin

repeat

s:=('enter stroku s klaviaturi');

readln(s);

s:=trim(s);

writeln(s);

write('dly vuhoda nagmite 0, esli prodolgit to 1');

readln(n);

if n=0 then break

until false

end.

Рис.7. Результаты работы программы для задачи 7

Задача №8

Написать программу для удаления всех строк двумерного массива с отрицательными элементами.

Решение

Для решения задачи используем функцию haveotr, а также процедуру delete(удаляет из строки символы, начиная с позиции Index). Отметим, что haveotr=ложь, но если массив от 1 до 5 < 0, то в этом случае haveotr=правда.

program Project8;

//uses SysUtils;

var

arr : array [1..5, 1..5] of integer;

i, j : byte;

function haveotr(n : byte) : boolean;

begin

haveotr := false;

for j := 1 to 5 do if arr[n, j] < 0 then haveotr := true;

end;

procedure del(n : byte);

begin