Вывести в том же порядке все четные числа из данного набора и количество К таких чисел

@Leto* · Регистрация: 17.11.2010

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

Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество К таких чисел.

пожалуйста)

@SunEclipse · 20.04.2011, 23:07

Эм-м, а с массивом можно делать?

Добавлено через 1 минуту

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..100] of integer;
i,n,s,b,f:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to n do begin
if not odd(a[i]) then inc(f);
end;
write('Количество четных= ',f)
end.

@Leto* · 20.04.2011, 23:24 **[ТС]**

судя по всему да. там вводится сначала число. потом сам массив вручную.

Добавлено через 13 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a:array[1..10] of integer;
i,n,c:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if (a[i] mod 2)=0 then 
begin
c:=c+1;
write(a[i],' ',c);
end;
end.

это тоже верно получится..?

@SunEclipse · 21.04.2011, 00:59

Да, тоже верно.

@sentinel · 01.07.2011, 20:51

А как эту программу можно визуализировать в Delphi?
Я не понимаю как вывести в определенную панель ответ. В общем вот что у меня получилось:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.btn1Click(Sender: TObject);
var a:array[1..10] of Integer;
i,n,c:Integer;
begin
n:=StrToInt(edt1.text);
for i:=1 to n do a[i]:=StrToInt(edt2.text);
for i:=1 to n do
if (a[i] mod 2)=0 then
begin
c:=c+1;
pnl1.Caption:=FloatToStr(a[i]);
pnl2.Caption:=FloatToStr(c); 
end;
end;
 
end.

как нужно написать её правильно?
help..

@Puporev · 02.07.2011, 18:34

Если уж писать в Делфи, то как в Делфи..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
  Form1: TForm1;
  a:array of Integer; //глобальные переменные динамический массив
  n:Integer;//и его размер
implementation
 
{$R *.dfm}
 //создание размера массива и таблицы
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
n:=StrToInt(edit1.text);
StringGrid1.ColCount:=n;//кол. столбцов
StringGrid1.RowCount:=1; //кол. строк
//добавим опцию редактирования ячеек
StringGrid1.Options:=StringGrid1.Options+[goEditing];
Setlength(a,n); //выделим память под массив
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var k,i:integer;
begin
for i:=0 to n-1 do
a[i]:=StrToInt(StringGrid1.Cells[i,0]);
k:=0;
for i:=0 to n-1 do
if (a[i] mod 2)=0 then
 begin
  k:=k+1;
  Edit2.Text:=Edit2.Text+IntToStr(a[i])+'  ';
 end;
Edit3.Text:='Количество четных='+IntTostr(k);
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Leto* 2 / 2 / 3 Регистрация: 17.11.2010 Сообщений: 16

	Вывести в том же порядке все четные числа из данного набора и количество К таких чисел 20.04.2011, 22:36. Показов 3943. Ответов 5 Метки нет (Все метки) Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество К таких чисел. пожалуйста) 0

@SunEclipse 232 / 182 / 104 Регистрация: 19.03.2010 Сообщений: 949
	21.04.2011, 00:59
	Да, тоже верно. 0