Числа введённые случайным образом (от -15 до 23) необходимо определить количество отрицательных,положительных,чёт,нечёт чисел,мин и макс число в последовательности и вывести сообщение на экран при присутствии в последовательности 0. (паскаль )
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
var n,i,a,ko,kp,k1,k2,min,max,k:integer;
begin
write('Введите количество чисел в последовательности (n>0) ');
readln (n);
a:=random(39)-15;
min:=a;
max:=a;
write ('Последовательность ');
for i:=1 to n do
begin
if a=0 then k:=1;
if a<0 then ko:=ko+1;
if a>0 then kp:=kp+1;
if a mod 2 = 0 then k2:=k2+1 else k1:=k1+1;
if a<min then min:=a;
if a>max then max:=a;
write (a,' ');
a:=random(39)-15;
end;
writeln;
writeln ('Количество отрицательных чисел ko = ',ko);
writeln ('Количество положительных чисел kp = ',kp);
writeln ('Количество чётных чисел k2 = ',k2);
writeln ('Количество нечётных чисел k1 = ',k1);
writeln ('Минимальное число min = ',min);
writeln ('Максимальное число max = ',max);
if k=1 then writeln ('В последовательности присутствовал 0')
end.