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

помогите с программой в Turbo Pascal [СРОЧНО]


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

Опубликовано

var

a:array [1..30,1..30] of integer;
i,m,j:integer;

begin

randomize;

for i:=1 to 30 do
for j:=1 to 30 do
a[i,j]:=random(8);

for i:=1 to 30 do
for j:=1 to 30 do

begin

write (a[i,j]:2);
if j mod 30 = 0 then writeln;

end;

writeln('-----------------------------------------------');

for i:=1 to 30 do
for j:=1 to 30 do

begin

if (a[i,j] mod 2 <> 0) then write(a[i,j]:3);

end;

end.

Если я конечно условия правильно понял...

  • 3 месяца спустя...
Опубликовано

Помогите решить задачу

За решение четырех задач студент получил оценки (от 1 до 5). Составьте программу, которая определит среднее значение оценок, полученных студентом за задачи.

Необходимо использовать циклический алгоритм

Я даже тип данных, какой надо выставить не знаю.

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

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

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