Регистрация
ellapopova05
02.07.2021 12:32
Информатика
Есть ответ 👍

Спаскалем. напишите программу, определяющую первое вхождение заданного целого числа x в массив целых чисел, заведомо содержащий это число.

112
200
Посмотреть ответы 2

Ответы на вопрос:

dasha43com
dasha43com
4,4(28 оценок)
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   writeln('позиция ',a.indexof(readinteger('введите искомое число: '))+1); end. пример n= 15 23 -16 15 32 -17 -32 -22 -5 -20 22 -19 -5 -36 23 31 введите искомое число: -32 позиция 6
anuynilonoca
anuynilonoca
4,4(49 оценок)

var a: array[1..20] of integer;

i: integer;

begin

write(' исходный массив: ');

for i: =1 to 20 do

begin

a[i]: =random(31)-15;

write (a[i]: 3,' ')

end;

writeln;

write('преобразованый массив: ');

for i: =1 to 20 do

begin

if (a[i] mod 3 = 0) then a[i]: =a[i] div 3

else a[i]: = a[i]*2;

write (a[i]: 3,' ')

end

end.

Популярно: Информатика