Написать программу осуществляющую поиск в одномерном массиве a, состоящего из 20 элементов, заданных случайным образом элемента, равного 50. если такого нет, вывести на экран сообщение “такого нет”.
Варежкамяу
3
04.10.2019 10:50
3
Другие вопросы по теме Информатика
Max010507
26.09.2019 19:30
vtrutnev
26.09.2019 19:30
znj93294znj93294
26.09.2019 19:30
Блейк51
29.06.2019 06:50
arinapes30
29.06.2019 06:50
MrDrozdik
13.09.2019 22:20
odinokijcelovek
13.09.2019 22:20
violapi
13.09.2019 22:20
Emulov
18.11.2020 17:59
Популярные вопросы
- Написать страшилку на языке из 15 предложений . буду ....
3 - Салауатты өмір салтын қалай сақтауға болады? эссе...
2 - Спільне між робекою і ровеноїбудь ! ...
3 - Экспериментальное на завтра...
3 - Спересказом этого текста, максимально кратко (можно с планом)...
2 - 1. правда что если быстро ростешь то быстро стареешь? 2. + -...
1 - Напишете отзыв на отрывок только первой части поэмы « песня про...
1 - На рисунке 62 представлен график зависимости скорости ропределите...
2 - Найдите в стихотворении а.с. пушкина тучи эпитеты,сравнения,метафора,...
1 - Подберите эпитеты, сравнения и метафоры, характеризующие любовь...
1
var a:array[1..20] of integer;
i,k: integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(51)+25;
write (a[i],' ')
end;
writeln;
for i:=1 to 20 do
if a[i]=50 then
begin
writeln (i,' элемент = ',a[i]);
k:=k+1
end;
if k=0 then writeln ('Такого нет')
end.