VPF::[Pascal] Массивы! - Форум программистов

Konstantiiin

Дата 14.1.2007, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 9.12.2006

Репутация: нет
Всего: нет

1)Все элеметы после первого положительного элемента заменить на число 5 в одномерном массиве D(N).
Исходный и измененные массивы записать в разных строках.

2)В двумерном массиве L(M,N) первый элемент поменять с последним и найти сумму отрицательных элементов.Массив заполнить случайным образом. Исходный и измененный массивы вывести на экран ввиде матрицы.

HELP ME!

M
Alexeis

Модератор: Пожалуйста, один топик - один вопрос.

Это сообщение отредактировал(а) Alexeis - 14.1.2007, 21:00

Rodman

Дата 14.1.2007, 12:56 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Konstantiiin, Помни: один топик - один вопрос!

Код


uses crt;
var a:array [1..20] of integer;
      b:array[1..2,1..20]of integer;
   i,n:integer;
   che:boolean;
begin
 clrscr;
  writeln('Vvedite koli4estvo elementov  ');
  readln(n);
  for i:=1 to n do
    begin
     write('element [',i,']= ');
     readln(a[i]);
     b[1,i]:=a[i];
    end;
  che:=false;
  for i:=1 to n do
    begin
       if(che)then
            a[i]:=5;
       if(a[i]>0)then
             che:=true;
       b[2,i]:=a[i];
    end;
//выведешь сам
end.

Код


Uses crt;
var a:array [1..40,1..40] of integer;
    i,j,n,m,sum:integer;

BEGIN
 clrscr;
  writeln('n ');
  readln(n);
  writeln('m ');
  readln(m);
    sum:=0;
randomize;
 for i:=1 to m do
  for j:=1 to n do
  begin
    a[i,j]:=random(100);
    if(a[i,j]<0)then
         sum:=sum+a[i,j];
  end;
  writeln('summa = ',sum);
  i:=a[1,1];
  a[1,1]:=a[m,n];
  a[m,n]:=i;
   for i:=1 to n do
  for j:=1 to n do
   begin
      gotoxy(i*4,j*2);
      write(a[i,j]);
   end;
 readln;
END.

Добавлено @ 12:57

Цитата(Konstantiiin @ 14.1.2007, 11:27

)

[Psakal]Массивы! Думал что разобрался,но нет!

а че это за язык... я такого не знаю, но написал на паскале... smile

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Konstantiiin

Дата 14.1.2007, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 9.12.2006

Репутация: нет
Всего: нет

Цитата(Rodman @ 14.1.2007, 12:56)

Добавлено @ 12:57

Цитата(Konstantiiin @ 14.1.2007, 11:27

)

[Psakal]Массивы! Думал что разобрался,но нет!

а че это за язык... я такого не знаю, но написал на паскале... smile

случайно =))

Добавлено @ 13:10
Вери сенкс те!

Konstantiiin

Дата 14.1.2007, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 9.12.2006

Репутация: нет
Всего: нет

Обьясни пожалуйста что такое CHE в первой задаче

Все разобрался,Спосибо!

Это сообщение отредактировал(а) Konstantiiin - 14.1.2007, 13:42

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »