program matrix;
{$APPTYPE CONSOLE}
uses
SysUtils;
const dlina = 10; // длина матрицы
height = 7; // высота матрицы
var
i, j :integer;
mat : array [1..dlina,1..height] of integer;
kolvo: integer ;
begin
kolvo:=0;
for i:=1 to 10 do
begin
for j:=1 to 7 do
begin
mat[i,j]:=(random(100))*(-5);
write(mat[i,j],' ');
if mat[i,j]<0 then inc(kolvo);
end;
writeln;
end;
write('kolvo otrizat elementov ', kolvo);
readln;
end.
Delphi 7.0
задачу на Delph 7.0
дана целочисленная прямоуг. матрица. Определить кол-во отрицательных элементов.
а с формой можешь создать
второе задание(предполагается, что слова разделены лишь одним пробелом и в тексте нет знаков припинания, также допустим А<>а, но можешь добавить это с помощью UpperCase или LowerCase), смотри в архивчике.
[COLOR=red]кросспостинг ЗАПРЕЩЕН, так можно в бан угодить. тему удаляю без ответа =).[/COLOR]
Как удалить письмо(сообщ)
Спасибо большое
задачу на Delph 7.0
дана целочисленная прямоуг. матрица. Определить кол-во отрицательных элементов.
[COLOR=red]Бан на неделю[/COLOR] [COLOR=red]за спам и некорректное поведение. Подробности ищи в своем профиле. Тему не закрываю.[/COLOR]