Опубликовано 4 года назад по предмету Информатика от vorontsov86

Дан массив (заполнить любым способом). Определить сколько раз в массиве встречается элемент равный заданному с клавиатуры значению.

Ответ

Ответ дан 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.

Самые новые вопросы

Другие предметы - 3 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 3 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 3 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 3 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 3 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают