Решить в паскаль ввести массив из 12 вещественных чисел. найти наибольшее число из элементов с нечетными значениями и вывести на экран. ввести массив из 10 символов( букв) удалить из него элементы, равные последнему и предпоследнему символам. полученный новый массив вывести на экран

176

280

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

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

Minasyan99

Информатика

4,5(88 оценок)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var a: =readarrreal(12).select(x-> real(; writeln('тип массива ',a.gettype); writeln('максимальное нечетное: ',a.where(x-> trunc(x).isodd).max) end. пример 13 10 22 31 22 6 18 5 26 3 8 24 тип массива system.double[] максимальное нечетное: 31 // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var c: =new char[10]; for var i: =0 to 9 do c[i]: =readlnchar; var c1: =c[9]; var c2: =c[8]; c: =c.where(a-> (a< > c1) and (a< > ; c.println(',') end. пример а п е л ь с и н е ь а,п,л,с,и,н

Какаяразницакто

Информатика

4,6(62 оценок)

Поменяй тип переменной s на real, у тебя в данном случае может получится вещественное значение в s, а тип integer не может хранить вещественные числа. Также, насколько я понимаю нужно сумму найти, тогда ты не просто в цикле присваиваешь s какое-то значение, а именно прибавляешь к s выражение. s := s + выражение

var n, i, x : integer;

s : real;

p : longint;