Определить, сколько раз число X, встречается в массиве L

@*Angell* · Регистрация: 12.10.2011

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

Дан массив L(13), cколько раз число X, встречается в массиве L.

@Puporev · 14.11.2011, 17:03

Сообщение от *Angell*

ПОМОГИТЕ!

А что не ПАМАГИТЕЕЕЕЕ!!!!!!!

@*Angell* · 14.11.2011, 17:06 **[ТС]**

Что???что не так?

@КонецСвета · 14.11.2011, 17:19

Сообщение от *Angell*

L(13)

- это количество элементов в массиве? Тогда:

Pascal

uses crt;
var L: array [1..13]of integer;
    i, X,K: integer;
begin
writeln ('Заполните массив L');
for i:=1 to 13 do
    begin
    write ('L[',i,']=');
    readln (L[i]);
    end;
write ('Введите число X ');
readln (X);
K:=0;
for i:=1 to 13 do
    if L[i]=X then K:=K+1;
writeln ('Число ',X,' встречается в массиве L ',K,' раз(а)');
end.

@Puporev · 14.11.2011, 17:36

Комментарий модератора

Сообщение от *Angell*

Что???что не так?

Читайте правила, особенно по оформлению тем.

@*Angell* · 14.11.2011, 17:44 **[ТС]**

Спасибо*У меня так вышло...

Pascal

Program z2;
var L:array[1..13] of integer;
i,k,x:integer;
begin
for i:=1 to 13 do
begin
l[i]:=random(100)-50;
write(L[i]:4);
end;
writeln;
write('x=');
readln(x);
k:=0;
for i:=1 to 13 do
if L[i]=x then k:=k+1;
writeln('Число ',x,' встречается в массиве L ',k,' раз');
end.

@Angell 20 / 0 / 0 Регистрация: 12.10.2011 Сообщений: 34
		1
	Определить, сколько раз число X, встречается в массиве L 14.11.2011, 17:02. Показов 2195. Ответов 5 Метки нет (Все метки) Дан массив L(13), cколько раз число X, встречается в массиве L. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	14.11.2011, 17:03	2
	Сообщение от *Angell* ПОМОГИТЕ! А что не ПАМАГИТЕЕЕЕЕ!!!!!!! 0

@Angell 20 / 0 / 0 Регистрация: 12.10.2011 Сообщений: 34
	14.11.2011, 17:06 [ТС]	3
	Что???что не так? 0

	14.11.2011, 17:44

Опции темы

Определить, сколько раз число X, встречается в массиве L

Решение