Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11639
Последний выпуск: 19.06.2015

помогите решить задачу, пожалуйста

88K
19 сентября 2013 года
msvasileva@mail.ru
2 / / 19.09.2013
создать программу формирования и вывода на экран одномерного массива,состоящего из сумм элементов строк двумерного массива,заданного с помощью датчика случайного числа...
213
20 сентября 2013 года
wanja
1.2K / / 03.02.2003
Что значит "одновременно"?
288
02 февраля 2014 года
sadovoya
757 / / 19.11.2005
Паскали разные бывают. Для Delphi консольная программа:

Код:
program prog;
{$APPTYPE CONSOLE}
var
   A: array[1..3] of array[1..4] of integer;
   B: array[1..3] of integer;
   i, j: integer;
begin
   randomize;
   for i := 1 to 3 do
   begin
      B[i] := 0;
      for j := 1 to 4 do
      begin
         A[i,j] := random(10);
         B[i] := B[i] + A[i][j];
     end;
   end;
   WriteLn('A[]: ');
   for i := 1 to 3 do
   begin
      for j := 1 to 4 do Write(A[i][j], ' ');
      WriteLn;
   end;
   Writeln;
   Write('B[]: ');
   for i := 1 to 3 do Write(B[i], ' ');
   readln;
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог