Решить задачку по Pascal

TpaXmopucm · 04.12.2011, 02:30

Постановка задачи:
1. Написать программу, которая работает с любыми численными массивами.
2. Входную информацию и результаты вывести на печать.

Методические указания:
Исходные данные должны включать и положительные числа, и отрицательные, и нули.
Дан двумерный массив 4×4. Добавить 5-ю строку, элементы которой это сумма четных элементов этого же столбца по другим строках.

Vladimir_S · 04.12.2011, 09:34

Цитата:

Сообщение от TpaXmopucm

Дан двумерный массив 4×4. Добавить 5-ю строку, элементы которой это сумма четных элементов этого же столбца по другим строках.

Да ну... чего тут решать-то? Совсем не интересно.

Код:

VAR
 A:Array[1..5,1..4] of Integer;
 i,j,Sum:Integer;
BEGIN
 Randomize;
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 For j:=1 to 4 do
  begin
   A[5,j]:=0;
   For i:=1 to 4 do
    If (A[i,j] mod 2)=0 then A[5,j]:=A[5,j]+A[i,j];
  end;
 For i:=1 to 5 do
  begin
   For j:=1 to 4 do
    Write(A[i,j]:8);
   Writeln;
  end;
 Readln
END.

TpaXmopucm · 04.12.2011, 16:34

Цитата:

Сообщение от Vladimir_S

Да ну... чего тут решать-то? Совсем не интересно.

Код:

VAR
 A:Array[1..5,1..4] of Integer;
 i,j,Sum:Integer;
BEGIN
 Randomize;
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 For j:=1 to 4 do
  begin
   A[5,j]:=0;
   For i:=1 to 4 do
    If (A[i,j] mod 2)=0 then A[5,j]:=A[5,j]+A[i,j];
  end;
 For i:=1 to 5 do
  begin
   For j:=1 to 4 do
    Write(A[i,j]:8);
   Writeln;
  end;
 Readln
END.

огромное спасибо

04.12.2011, 02:30	#1 (permalink)
TpaXmopucm Member Регистрация: 04.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Решить задачку по Pascal Постановка задачи: 1. Написать программу, которая работает с любыми численными массивами. 2. Входную информацию и результаты вывести на печать. Методические указания: Исходные данные должны включать и положительные числа, и отрицательные, и нули. Дан двумерный массив 4×4. Добавить 5-ю строку, элементы которой это сумма четных элементов этого же столбца по другим строках.

04.12.2011, 02:30
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Можете поискать интересующую информацию в аналогичных топиках Помогите решить задачки в Pascal Помогите, пожалуйста, решить три задачи по Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070