Задачи на массивы и не только Опции

[Slayerman]

Народ помоги решить задачи
1. Подсчитать и вывести на экран кол-во слов в заданном предложении Я РАД ЧТО Я ЖИВУ
2. Из слова ПРОСТОКВАША получить фразу ВАШ ШАР ПРОСТО КРАСОТА
3. В массиве из 10 элементов найти произведение отрицательных элементов

[Altair]

1.

А что это по этой фразе или это размер показан? (хотя это не имеет значение)

Код

var s:string;
b:byte;
p:byte;
begin
readln(s);
for b:=1 to Length(s) do If s[b]=' ' then inc(p);
inc(p);
writeln('Количество слов =',p);
end.

2 - совсем условие не понятно. Как из напитка получить шар???

3.

Код

var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
pp:=1;
for i:=1 to 10 do if a[i]<0 then pp:=pp*a[i];
writeln('произв.=',pp);
end.

[Slayerman]

еще помогите:
в массиве из 10-ти элементов найти сумму чисел больших 1

заполнить двухмерный массив А из k-строк и m-столбцов произвольными числами. Вывести его на экран в виде таблицы

Написать прогу определения длины любого слова

[Catty]

а где спасибо за предыдущие проги? <_<

[Altair]

в массиве из 10-ти элементов найти сумму чисел больших 1

Код

var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
for i:=1 to 10 do if a[i]>1 then pp:=pp+a[i];
writeln('SUMMA=',pp);
end.

[Slayerman]

Вот я дурак забыл...
ОГРОМНОЕ СПАСИБО!!!!

[Catty]

Написать прогу определения длины любого слова

Код

var n,i:byte;
v:string;
begin
read(v);
n:=length(v);
writeln(n);
end.

Сообщение отредактировано: Catty - 26.05.2004 21:00

[Catty]

Код

uses Crt;
const  k=5; m=7;
var i,j:byte;
 a:array[1..k,1..m] of byte;

Begin
randomize;
for i:=1 to k do
for j:=1 to m do
a[i,j]:=random(30);
for i:=1 to k do
for j:= 1 to m do begin
GotoXY(i*3,j+1);
write(a[i,j]);
end;
end.