Одномерные массивы
Заполнить массив а из 15 элементов, случайными числами, значение которых изменяются в
диапазоне от -50 до 50. Вывести массив на экран.
Найти:
1.
1. Вывести на экран произведение всех элементов массива.
2. Вывести на экран количество отрицательных элементов массива.
3. Вывести на экран среднее арифметическое всех нечетных элементов целочисленного
массива (с точностью 2 знака после запятой).
Если в массиве нет нечетных элементовывести "NO".
4. Вывести на экран список всех положительных чисел в одну строку, оканчивающихся
на 8. Если в массиве нет таких элементов, вывести "NO".
5. Вывести на экран список всех положительных чисел в одну строку, которые делятся на З и не делятся на 9. Если в массиве нет таких элементов, вывести "NO".
Объяснение:
1) int x = 5;
x++; до х додаєтся 1
х=6
41) int x = 5;
x--; від х віднімається 1
х=4
42) int x = 5;
x += 3; до х додаєтся 3
х=8
43) int x = 5;
x -= 3; від х віднімається 3
х=2
44) int x = 5;
x *= 3; х перемножають на 3
х=15
45) int x = 6;
x /= 3;
х=2
46) int x = 5; int y;
y = x % 2;
y=1
47) int x = 5; int y;
y = abs( x ); модуль числа (його позитивне значення)
у=5
48) int x = -5; int y;
y = abs( x ); модуль числа (його позитивне значення)
у=5
49) float x = 4; float y;
y = sqrt( x ); sqrt( x ); це √х
у=2
50) float x = 3; float y;
y = pow( x, 2 ); домножає х на себе 2 рази тобто возводиь у другу ступінь
y = х*х
y = 3*3
y = 9
51) float f = 32.51;
printf("%2.1f", f); не впевнений
32.5
52) int x = 4; int y;
if(x 4) y = x; тут якась помилка якщо в дужках повинно бути (x==4) то умова була такою якщо х дорівнює 4 то y = x, тобто у теж дорівнює 4 інакше y дорівнює х помножений на 2
else y = 2*x;
y = 4
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш