Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи на массивы и не только
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 - совсем условие не понятно. Как из напитка получить шар??? smile.gif

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
а где спасибо за предыдущие проги? <_< blink.gif
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
Код
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.