с клавиатуры заданы 2 числа. если первое из них больше или равно второму, удвоить их значения, в противном случае уменьшить каждое из них на 3. Это всё паскаль
var n:integer; a:array[1..100] of integer; begin write('Введите размер массива (n<100): ');readln(n); var max:=0; var min:=101; for var i:=1 to n do begin a[i]:=random(0,100); write(a[i],' '); if i mod 2=1 then if a[i]>max then max:=a[i] else if a[i]<min then min:=a[i]; end; writeln; writeln('Максимальный - ',max); writeln('Минимальный - ',min); writeln('Cумма максимального и минимального - ',max+min); readln; end.
begin Writeln('введите исходное предложение: '); Readln(s); delete(s, pos(' ', s), 1); write('Последняя буква второго слова='); if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1]) else write(s[length(s)]); readln(s); end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
//Версия 3.3. сборка 1583 (25.11.2017)
var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=1 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
writeln('Cумма максимального и минимального - ',max+min);
readln;
end.
Пример:
Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52 // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61