Створіть проект, у якому вводяться значення елементів табличної величини із 7 цілих чисел у багаторядковому текстовому полі, обчислюється сума від’ємних з них і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.1, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of integer;
i, s: integer;
begin
for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);
s:= 0;
for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];
Label1. Caption: = IntToStr(s);
end;
2. Створіть проект, у якому вводяться значення елементів табличної величини з 8 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 5, і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.2, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of real;
i, k: integer;
begin
for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);
k:= 0;
for i:= 1 to 8 do
if a[i] > 5 then k:= k + 1;
Label 1.Caption:= IntToStr(k);
end;
handsfree = true;
var
a: array[1..100, 1..100] of real;
max, min: real;
i, j, m, n: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
{минимумы и максимумы}
max := a[1, 1];
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
begin
if max < a[i, j] then max := a[i, j];
if min > a[i, j] then min := a[i, j];
end;
writeln('max = ', max);
writeln('min = ', min);
end.