Дан массив (заполнить любым способом). Определить сколько раз в массиве встречается элемент равный заданному с клавиатуры значению.
Ответы
Ответ дал:
0
Я так понял на паскале нужно написать?
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад