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

Question

1. составьте программу ввода элементов массива а[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями.
2. первое задание с листка, пункт в)
3.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечетными значениями. (упр. 2, пункт а))
4.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями(на картинке упр.3, пункт а) )
лучше смотрите по картинке, т.к. боюсь что где-то ошиблась....

---

Answer 1

{1}
var
  a: array [1..8] of integer;
  i: integer;
begin
  writeln('Введите 8 элементов массива: ');
  for i := 1 to 8 do read(a[i]);
  for i := 1 to 8 do write(-a[i]:4);
end.

{1.в}
var
  a: array [1..6] of integer;
  x, i: integer;
begin
  x := 3;
  for i := 1 to 6 do
  begin
    a[i] := x;
    x := x + 3;
  end;
  for i := 1 to 6 do write(a[i]:4);
end.

{2.а}
var
  a: array [1..10] of integer;
  x, i: integer;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(11);
    if a[i] mod 2 <> 0 then x := x + 1;
  end;
  for i := 1 to 10 do write(a[i]:4);
  writeln;
  writeln('Кол-во элементов с нечетными значениями: ', x);
end.

{3.а}
var
  a: array [1..10] of integer;
  sum, x, i: integer;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(11);
    if a[i] mod 2 <> 0 then x := x + 1
    else sum := sum + a[i];
  end;
  for i := 1 to 10 do write(a[i]:4);
  writeln;
  writeln('Кол-во элементов с нечетными значениями: ', x);
  writeln('Сумма элементов с четными значениями: ', sum);
end.

Comments

а можно и решение остальных задач? пожалуйста.

---

Да да) Сейчас напишу)

---

Всё, кажется)

---

там же еще 4 и 3 упражнение, можете пожалуйста тоже решить

---

4 и 3 полностью?

---

о нет, нет, я просто не посмотрела что вы их уже решили, инет глючит...

---

Ничего) Удачи вам.