|
Вопрос # 5 187/ вопрос открыт / |
|
Здравствуйте, эксперты! Помогите!
В массиве F(n,m) заменить все положительные элементы их квадратами, а отрицательные – их кубами:
program Pervun5_2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=2;
m=2;
type
mas=array[1..n,1..m] of integer;
var
F:mas;
F1: integer;
i,j:integer;
begin
WriteLn('Type integer elements of array A:');
for i:=1 to n do
for j:=1 to m do Read(F[i,j]);
F1:=F[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if F[i,j]<0 then F1:=F[i,j]*F[i,j]*F[i,j];
if F[i,j]>0 then F1:=SQR(F[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do
Write(F[i,j]:10);
Writeln;
end;
WriteLn('***** Press <ENTER> to finish *****');
Readln;
Readln;
end.
 |
Вопрос задала: Pervun (статус: Посетитель)
Вопрос отправлен: 13 апреля 2011, 16:36
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 13 апреля 2011, 18:00; участников в обсуждении: 3.
|
Ерёмин А.А. (статус: *Администратор), 13 апреля 2011, 16:46 [#1]:
Вопрос-то в чём?
|
|
Толяныч (статус: 4-ый класс), 13 апреля 2011, 17:02 [#2]:
Я думаю, афтар ждет похвалы : "Как я лихо!"
Молодец.
|
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 17:10 [#3]:
Узнаю белорусского партизана.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Ерёмин А.А. (статус: *Администратор), 13 апреля 2011, 17:45 [#4]:
Если будет молчать, вопрос отправится в корзину.
|
|
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 18:00 [#5]:
Цитата (Ерёмин А.А.):
Если будет молчать, вопрос отправится в корзину.
И это правильно, товарищи!!! УРА!!!! (бурные продолжительные апплодисменты)
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
13 апреля 2011, 19:09: Вопрос перемещён в корзину модератором Ерёмин А.А.. Причина: И тишина…
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
