помогите пожалуйста!)

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

artik

Дата: Четверг, 07.01.2010, 15:56 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 1

Репутация: 0

Статус: Offline

1)текст вводить с клавиатуры. распечатать все слова в порядке уменьшения их длины.
2)в заданном массиве а(13) найти произведение элементов, расположенных перед последним нулевым элементом. вывести номер последнего нулевого элемента и произведения.
заранее спасибо))

Dock^

Дата: Воскресенье, 17.01.2010, 14:03 | Сообщение # 2

Генералиссимус

Группа: Администраторы

Сообщений: 19

Репутация: 1025

Статус: Offline

вот 2

uses crt;
type mas=array[1..13] of integer;
var a:mas;
i,j:byte;
P:integer;
begin
clrscr;
writeln('Vvedite elementy masssiva:');
for i:=1 to 13 do readln(a[i]);
j:=1;
for i:=1 to 13 do if (a[i]=0) then j:=i;
P:=1;
for i:=1 to 13 do
begin
if (i=j) then break;
if ((a[i]=0) and (i<>j)) then P:=1 else
P:=P*a[i];
end;
writeln('krajnij nol:',j,' proizvedenie:',P);
readln;
end.

помогите пожалуйста!)

Страница 1 из 1
1