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

1

Ответы и объяснения

Лучший Ответ!
2013-12-02T14:26:15+00:00
{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.
Всё, кажется)
там же еще 4 и 3 упражнение, можете пожалуйста тоже решить
4 и 3 полностью?
о нет, нет, я просто не посмотрела что вы их уже решили, инет глючит...
Ничего) Удачи вам.