VPF::Задачки на Pascal - Форум программистов

web_VIP

Дата 21.4.2008, 07:17 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 8.9.2007

Репутация: нет
Всего: нет

Помогите, кто разбирается в Pascal, нужно сделать 3 небольшие программки:
1. Дано 10 вещественных чисел. Вычислить разность между макси¬мальным и минимальным из них.
2. Дана двумерная матрица J(5;7) целых чисел. Найти произведение чётных элементов этой матрицы.

Модератор: Название темы должно отражать ее суть!
Читаем внимательно
Правила форума: http://forum.vingrad.ru/index.php?act=boardrules

Это сообщение отредактировал(а) volvo877 - 21.4.2008, 11:52

Arch1S

Дата 21.4.2008, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 14.1.2008
Где: Беларусь, Гомель

Репутация: нет
Всего: 3

решение на первый я давать не буду, но выведу тебя на правильное решение проблемы

Код


Max:=x[1];
Nmax:=1;
for i:=2 to n do
  if x[i]>Max then 
  begin
    Max:=x[i];
    Nmax:=i;
  end;
writeln('Max=', Max:1:3,'Nmax=',Nmax);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »