В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0

@Rempi Izek · Регистрация: 12.01.2013

Author24 — интернет-сервис помощи студентам

1. В одномерном массиве размерностью N все положительные элементы умножить на 10, а все отрицательные элементы заменить на 0.

@Leshak · 13.01.2013, 12:33

(1)

Pascal

Uses crt;
const len = 100;
var
 A: array [ 1 .. len ] of integer;
 i, j, n: integer;
begin
clrscr;
randomize;
 
repeat
 write('Enter n( 1<=n<=100 ):');readln(n);
until n in [ 1 .. 100 ];
 
writeln('Array A[i]:');
for i:=1 to n do begin
    A[i]:=random(21)-10;
    write(A[i]:3);
end;
 
for i:=1 to n do begin
    if A[i] > 0 then A[i]:=A[i]*10
     else A[i]:=0;
end;
 
writeln;
writeln('Result array:');
for i:=1 to n do begin
    write(A[i]:3);
end;
 
readln;
end.

@Rempi Izek 0 / 0 / 0 Регистрация: 12.01.2013 Сообщений: 9
		1
	В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0 12.01.2013, 22:53. Показов 2109. Ответов 1 Метки нет (Все метки) 1. В одномерном массиве размерностью N все положительные элементы умножить на 10, а все отрицательные элементы заменить на 0. 0

	13.01.2013, 12:33

В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0

Решение