Перейти к содержанию
  • 0

Паскаль помогите решить задачу до сегодняшнего вечера 22 часов плиз


Proga46

Вопрос

В матрице А размерности 5х5, заданной датчиком случайных чисел:

Найти сумму элементов третьего столбца;

вывести на экран матрицу, заменив элементы, кратные 7 (исключая 0) на 1, остальные оставить без изменения;

Найти минимальный элемент побочной диагонали.

Помогите плиз.

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

тебе до когда надо? давай за полтинник на телефон решу =D

Добавлено спустя 20 минут 14 секунд:

осталось меньше трех часов XD

Ссылка на комментарий
  • 0

Recovery, если не знаешь основ яп, что так и как реализована логика, операторов и прочей шелухи, то очень проблематично за 2 часа 42 минуты решить ее =D

Ссылка на комментарий
  • 0

uses crt;

var a:array[1..5,1..5] of byte;

i,j:byte;

begin

clrscr;

randomize;

for i:=1 to 5 do begin writeln;

for j:=1 to 5 do begin

a[i,j]:=random(10);

write(' ',a[i,j]);

end

end;

j:=0;

for i:=1 to 5 do begin

j:=j+a[i,3];

writeln('сумма элементов 3-го стобца равна ',j);

for i:=1 to 5 do begin

writeln;

for j:=1 to 5 do begin

if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1;

write(' ',a[i,j]);

end

end

readkey;

end.

как то так...

паскаля нет, не проверял.

пофиксил

Ссылка на комментарий
  • 0
да проблематично не прошу бесплато думаю остались ещё добрые люди.
е-мое, пунктуацию бы =D

ну и сразу, откуда ты пользователь узнает, что в матрице что-то поменялось? )))

->> вывод изначальной матрицы добавить.

ну и сумму элементов столбца в один цикл можно, но не критично =)

Ссылка на комментарий
  • 0

uses crt;
var
a:array[1..5,1..5] of byte;
i,j,s:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
a[i,j]:=random(10);
write(' ',a[i,j]);
if j=3 then inc(s,a[i,j]);
if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1;
end
end;
writeln('сумма элементов 3-го стобца равна ',s);
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do write(' ',a[i,j]);
end
end
readkey;
end.

я бы наверно так написал. но для совсем краткости, сделал бы 2 матрицы напротив друг друга и один массив бы всего понадобился =) с пом. gotoxy(i,20+j) ну иль чтот подобного =)

Добавлено спустя 2 минуты 52 секунды:

у кого паскаль на руках протестите плиз:

uses crt;
var
a:array[1..5,1..5] of byte;
i,j,s:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 5 do begin
gotoxy(i,j*2);
a[i,j]:=random(10);
write(a[i,j]);
if j=3 then inc(s,a[i,j]);
if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1;
gotoxy(i,30+j*2);
write(a[i,j]);
end
writeln('сумма элементов 3-го стобца равна ',s);
readkey;
end.

Добавлено спустя 5 минут 45 секунд:

ой наврал с индексацией в gotoxy. наоборот вставьте

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...