с информатикой) Используя типы Day и Ch, определить порядковые номера значений: a , z , 1, 31. ( напишите - id2114306820200721 от Dead94 21.07.2020 12:18

Question

Информатика: с информатикой) Используя типы Day и Ch, определить порядковые номера значений: a , z , 1, 31. ( напишите код для С++)

Dead94 · Accepted Answer

Const n=10;
var a:array[1..n+1] of integer;
k,i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
write('Введите число: '); readln(k);
b:=false;
for i:=1 to n do
if a[i]=k then b:=true;
if not b then
begin
for i:=n+1 downto n div 2 + 1 do a[i]:=a[i-1];
a[n div 2]:=k;
for i:=1 to n+1 do write(a[i]:4);
writeln;
end
else writeln('Массив не изменился');
end.

Пример:
6 10 -5 -3 -9 -8 -3 3 -9 7
Введите число: 4
6 10 -5 -3 4 -9 -8 -3 3 -9 7

с информатикой) Используя типы Day и Ch, определить порядковые номера значений: 'a', 'z', 1, 31. ( напишите код для С++)

MOGZ ответил