нужно заменить в массиве числа меньшие Y на 0

@winni · Регистрация: 05.10.2009

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

помогите написать программу!
нужно заменить в массиве числа меньшие Y на 0!
пожалуйста помогите!

@mamedovvms · 05.10.2009, 14:31

Pascal

1 2	for i:=1 to n do if a[i]<y then a[i]:=0;

@schdub · 05.10.2009, 15:04

Pascal

uses CRT;
const N = 20; { кол-во элементов в массиве }
var i, y : Integer;
    a : array[1..N] of integer;
begin
  ClrScr;
  { вводим число }
  Write('y=');
  ReadLn(y);
  { инициализируем массив случ значениями }
  Randomize;
  WriteLn('Исходный массив');
  for i:=1 to N do
  begin
    a[i] := random(100);
    Write(a[i],' ');
  end;
  WriteLn;
  { обнуляем элементы удовлетворяющие условию }
  for i:=1 to N do
    if a[i]<y then
      a[i]:=0;
  WriteLn('Получился массив');
  for i:=1 to N do
    Write(a[i],' ');
  WriteLn;
  ReadLn;  
end.

@winni 0 / 0 / 0 Регистрация: 05.10.2009 Сообщений: 12
		1
	нужно заменить в массиве числа меньшие Y на 0 05.10.2009, 14:29. Показов 1254. Ответов 2 Метки нет (Все метки) помогите написать программу! нужно заменить в массиве числа меньшие Y на 0! пожалуйста помогите! 0

	05.10.2009, 15:04

нужно заменить в массиве числа меньшие Y на 0

Решение