Лаб4 массивы и цыклы

[Владан]

Помогите пожалуйста
11. Задали одномерный массив целых чисел, определить, сколько раз в нем встречается элемент со значением К. Использовать цикл for ... downto.

[Poma][a]

Форум русскоязычный => извольте изъясняться на русском языке

[domovou]

Если правильно понял то вот

var mas:array [1..100] of integer;
k,i,s,n:integer;
begin
writeln('vvedite K i n(razmer mas)');
readln(k,n);
s:=0;
for i:=1 to n do begin
    mas[i]:=random(60)-31;
    write(mas[i]:3);
    if k=mas[i] then inc(s);
    end;
writeln(s);
end.

[TinMan]

Сообщение от Poma][a

Форум русскоязычный => извольте изъясняться на русском языке

Я не думаю, что это правильное требование - как может, так и изъясняется человек (и ответ по мере понимания его). Но когда человек явно говорит по-русски, и просто КОПИРУЕТ, и ему ЛЕНЬ перевести ОДНУ СТРОЧКУ - это, я считаю, неуважение к другим..
Владан, -1 от меня.

[Владан]

Сообщение от domovou

Если правильно понял то вот

var mas:array [1..100] of integer;
k,i,s,n:integer;
begin
writeln('vvedite K i n(razmer mas)');
readln(k,n);
s:=0;
for i:=1 to n do begin
    mas[i]:=random(60)-31;
    write(mas[i]:3);
    if k=mas[i] then inc(s);
    end;
writeln(s);
end.

спасибо ,я пока неочень разбираюсь , но по-мойму нужно было исп.downto

[domovou]

Сообщение от Владан

спасибо ,я пока неочень разбираюсь , но по-мойму нужно было исп.downto

  var mas:array [1..100] of integer;
k,i,s,n:integer;
begin
writeln('vvedite K i n(razmer mas)');
readln(k,n);
s:=0;
for i:=n downto 1 do begin
    mas[i]:=random(60)-31;
    if k=mas[i] then inc(s);
    end;
for i:=1 to n do
    write(mas[i]:3); writeln;
writeln(s);
end.