Срочно!
1) Составьте программу ввода элементов массива a[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями
2) а) Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чётными значениями
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями
1) Составьте программу ввода элементов массива a[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями
2) а) Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чётными значениями
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями
Answers & Comments
1.
program project1;
var arr:array[1..8] of integer;
var i:integer;
begin
for i:=1 to 8 do
begin
write('Введите число №');
write(i);
write('> ');
readln(arr[i]);
end;
write('Отрицательные числа:');
for i:=1 to 8 do
begin
if arr[i] < 0 then
begin
write(arr[i]);
write(' ');
end;
end;
writeln('');
end.
begin
//1
var a := ReadArrReal(8);
a.Where(x->x<0).Println;
Println();
//2
var a2 := ArrRandom(10, 1, 10);
a2.Println;
a2.Count(x->x.isEven).Println;
Println();
//3
var b := ArrRandom(8, 1, 10);
b.Println;
b.Count(x->x.isOdd).Println;
end.