Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1

@Alexey203 · Регистрация: 10.12.2011

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

Дан массив А={-2;-1;3;0;3;4;5;5;8}. Нужно сформировать новый массив N по следующим правилам: все отрицательные элементы заменить нулями, элементы больше 3 увеличить на 1. Вывести на печать элементы старого и нового массива.

@WebMax 2.0 · 25.12.2011, 22:58

Pascal

Uses crt;
 
var a:array [1..9] of integer;
i:integer;
 
begin
   Writeln('Введите числа: ');
   For i:=1 to 9 do
     begin
     Write('a[',i,'] = ');readln(a[i]);
     end;
   Writeln;
   Write('Исходный массив: ');
   For i:=1 to 9 do
   begin
   Write(a[i]:3);
   If a[i]<0 then a[i]:=0 else
   if a[i]>3 then a[i]:=a[i]+1;
   end;
   writeln;
   Write('Исходный массив: ');
   For i:=1 to 9 do
   Write(a[i]:3);
end.

@Alexey203 · 25.12.2011, 23:02 **[ТС]**

спасибо

@Alexey203 0 / 0 / 0 Регистрация: 10.12.2011 Сообщений: 8
		1
	Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1 25.12.2011, 22:45. Показов 2025. Ответов 2 Метки нет (Все метки) Дан массив А={-2;-1;3;0;3;4;5;5;8}. Нужно сформировать новый массив N по следующим правилам: все отрицательные элементы заменить нулями, элементы больше 3 увеличить на 1. Вывести на печать элементы старого и нового массива. 0

@Alexey203 0 / 0 / 0 Регистрация: 10.12.2011 Сообщений: 8
	25.12.2011, 23:02 [ТС]	3
	спасибо 0

Опции темы

Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1

Решение