Дан массив целых чисел. Все элементы, кратные числу 10, заменить нулем

@Владислав О · Регистрация: 26.04.2013

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

Дан массив целых чисел. Все элементы кратные числу 10 заменить нулем

@Тамила · 26.04.2013, 08:36

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
   a:array[1..100]of integer;
   i,n:integer;
begin
   randomize;
   memo1.Clear;
   memo2.Clear;
   n:=StrToInt(Edit1.Text);
   for i:=1 to n do
    begin
       a[i]:=random(100);
       memo1.Lines.Add(IntToStr(a[i]));
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
   a:array[1..100]of integer;
   i,n:integer;
begin
   for i:=1 to n do
    begin
       if a[i] mod 10 =0 then a[i]:=0;
       memo2.Lines.Add(IntToStr(a[i]));
    end;
end;
end.

Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .

@Владислав О 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 10
		1
	Дан массив целых чисел. Все элементы, кратные числу 10, заменить нулем 26.04.2013, 06:44. Показов 2507. Ответов 1 Метки нет (Все метки) Дан массив целых чисел. Все элементы кратные числу 10 заменить нулем 0

	26.04.2013, 08:36

Дан массив целых чисел. Все элементы, кратные числу 10, заменить нулем

Решение