3 простых задачи Опции

[Oksana]

Кто нибудь, помогите пожайлуста решить 3 задачи. Я по этому предмету ничего не понимаю а специальность совсем другая Если поможете, буду очень вам благодарна!! задачи на сегодня

Массивы линейные
Создайте массив A[1..7] с помощью генератора случайных чисел и выведите его на экран. Увеличте все его элементы в 2 раза.

Циклы
Ввести с клавиатуры 10 чисел. Если среди них есть числа больше 15, заменить их на 15. Напечатать все получившие числа.

Прямоугольные массивы
Дан целочисленный массив A[1..4, 1..5] Требуется преобразовить матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней.

ЗАРАНЕЕ БЛАГОДАРЮ!!! задачки очень надо

Сообщение отредактировано: Oksana - 21.10.2005 3:45

[virt]

randomize;
for i := 1 to 7 do a[i] := random(10000);
for i := 1 to 7 do write(a[i] ,' ');
writeln;
for i := 1 to 7 do a[i] := a[i] * 2;
for i := 1 to 7 do write(a[i],' ');

for i := 1 to 10 do
   begin
      readln(a[i]);
      if a[i] > 15 then a[i] := 15;
   end;
for i := 1 to 10 do write(a[i],' ');

for i := 1 to 3 do
   for j := 1 to 5 do
      a[i,j] := a[i,j] - a[4,j];

[Oksana]

virt!!!!!!!!

Огромное тебе спасибо!!!!! а 3ый скрипт к 3 ей задаче?

[volvo]

а 3ый скрипт к 3 ей задаче?

:yes: Только почему "скрипт"?... "Программа" как-то привычнее...

[Oksana]

for i := 1 to 3 do
   for j := 1 to 5 do
      a[i,j] := a[i,j] - a[4,j];

А здесь нужно еще какое-то вычисление ??
поняла только, что создать надо массив A[1..4 1..5]

[volvo]

Oksana,
надо создать и заполнить матрицу ...

var a: array[1 .. 4, 1 .. 5] of integer;
... { остальные необходимые переменные }
begin
  for i := 1 to 4 do
    for j := 1 to 5 do begin
      write('a[', i, ', ', j, '] = '); readln(a[i,j]);
    end;

  for i := 1 to 3 do
     for j := 1 to 5 do
        a[i,j] := a[i,j] - a[4,j];

  { и распечатать полученную матрицу ... }
end.

[Oksana]

ВСЕ!!! огромное спасибо ВАМ! хорошие модераторы!!!!! :yes:

[Oksana]

Вторая задачка правильна?

var 
  a: array[1 .. 10] of integer;
  i:integer;

begin
writeln('vv. 10 4isel');
for i := 1 to 10 do
   begin
      readln(a[i]);
      if a[i] > 15 then a[i] := 15;
   end;
for i := 1 to 10 do write(a[i],' ');
end.

или writeln('vv. 10 4isel') нужно ввести до цикла?
Исправьте задачку пожалуйста

Исправлено

Сообщение отредактировано: volvo - 21.10.2005 13:37

[volvo]

См. предыдущий пост... Кстати, на будущее, постарайся придерживаться 2-х правил:
1. Название темы. Оно все-таки должно отражать суть задания.
2. Если тебе приводят фрагмент кода, ты можешь его исправлять, добавлять в него что-то, это твое дело... Но если ты хочешь, чтобы он оставался рабочим, не добавляй ничего ВНУТРЬ приведенного фрагмента (если только там прямо не указано, что необходимо что-либо добавить). Выше или ниже по тексту, но не внутри... Обычно те фрагменты, которые приводятся, вполне работоспособны, а полностью задачи выкладываются очень редко...

[Oksana]

См. предыдущий пост... Кстати, на будущее, постарайся придерживаться 2-х правил:
1. Название темы. Оно все-таки должно отражать суть задания.
2. Если тебе приводят фрагмент кода, ты можешь его исправлять, добавлять в него что-то, это твое дело... Но если ты хочешь, чтобы он оставался рабочим, не добавляй ничего ВНУТРЬ приведенного фрагмента (если только там прямо не указано, что необходимо что-либо добавить). Выше или ниже по тексту, но не внутри... Обычно те фрагменты, которые приводятся, вполне работоспособны, а полностью задачи выкладываются очень редко...

Поняла! буду придерживатся этим правилам!!!
Thanks за исправку! побежала на пары