Дан массив (заполнить любым способом). Определить сколько раз в массиве встречается элемент равный заданному с клавиатуры значению.
Answers & Comments
dominik417
Я так понял на паскале нужно написать? Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do A[i] := random(15); Writeln('Введите искомый элемент');Readln(n); k:=0;for i:=1 to 40 do Begin // Проверяем,совпадает ли очередной эл-нт массива с искомым //Если совпадает, то увеличиваем счетчик k if A[i] = n then k := k+1; End; Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.
Answers & Comments
Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do A[i] := random(15);
Writeln('Введите искомый элемент');Readln(n);
k:=0;for i:=1 to 40 do Begin // Проверяем,совпадает ли очередной эл-нт массива с искомым //Если совпадает, то увеличиваем счетчик k if A[i] = n then k := k+1; End;
Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.