Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите решить пожалуйста

Автор: Tanechka 27.06.2008 2:52

№1
Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные.

№2
Создайте действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.

Автор: мисс_граффити 27.06.2008 3:21

Показывай, что пробовала... Рассказывай, что не получилось.
Только, пожалуйста, не надо писать роман о тяжкой жизни студентки при злом преподе, который ничего не объясняет, а только ТРЕБУЕТ и ТРЕБУЕТ.

И тему переименуй в соответствии с правилами.

Автор: Unconnected 21.07.2008 21:11

Первая, кажется, так... smile.gif

Код

Program tables;
uses crt;
const a=15;b=30;
var mas:array[1..a] of integer;
    mas2:array[1..a] of integer;
    mas3:array[1..b] of integer;
    x,y,z:integer;
begin
  clrscr;
  randomize;
  y:=1;
  z:=1;
  for x:=1 to a do
  begin
    mas[x]:=random(20)+1;
    mas2[x]:=random(20)+1;
  end;
  for x:=1 to b do
  begin
    if x mod 2 = 0 then begin
                          mas3[x]:=mas[y];
                          inc(y);
                        end
    else begin
           mas3[x]:=mas2[z];
           inc(z);
         end;
  end;
  for x:=1 to b do writeln(mas3[x]);
readln;
end.

Автор: Ozzя 28.07.2008 16:06

Цитата
№2

for i:=1 to n 
  for j:=1 to m
     if a[i,j] < 0 then
        writeln(i,j);