Срочно! 1) Составьте программу ввода элементов массива a[1..8] с клавиатуры и вывода **...

Question

Срочно! 1) Составьте программу ввода элементов массива a[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями 2) а) Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чётными значениями б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечётными значениями

Comments

Паскаль?

Answer 1

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.

Comments

у меня и так и так работает, фрипаскаль если что у меня

---

включить проверку выхода за границы диапазона нужно было

---

окей

---

спасибо :D возьму на заметку

---

фрипаскаль прошлый век, PascalABC.NET рулит

---

в школе

---

он вроде под маком и линем не работает потому что на дотнете

---

тогда питон, выбора нет

---

пайтон вещь, по нему информации овердофига

---

ну пайтон норм в основном для скриптов, сайтов (джанга, ага) и ботов, а так я на с++ в основном пишу.

Answer 2

begin

 //1

 var a := ReadArrReal(8);

 a.Where(x->x

 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.