Помогите пожалуйста, СРОЧНО!!!! В двумерном массиве положительные элементы, по величине меньшие единицы, установить равными нулю. Решить в паскале
Помогите пожалуйста, СРОЧНО!!!!
В двумерном массиве положительные элементы, по величине меньшие единицы, установить равными нулю.
Решить в паскале
Гость
Ответ(ы) на вопрос:
Гостьconst n=5;
var
a: array[1..n, 1..n] of real;
i, j: integer;
begin
//считаем массив
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
//заменим все элементы >0 и <1 нулями
for i:=1 to n do
for j:=1 to n do
if (a[i, j] > 0) and (a[i, j] < 1) then
a[i,j] := 0;
end.
Не нашли ответ?
Похожие вопросы