Народ помоги решить задачи
1. Подсчитать и вывести на экран кол-во слов в заданном предложении Я РАД ЧТО Я ЖИВУ
2. Из слова ПРОСТОКВАША получить фразу ВАШ ШАР ПРОСТО КРАСОТА
3. В массиве из 10 элементов найти произведение отрицательных элементов
Полная версия: Задачи на массивы и не только
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.
А что это по этой фразе или это размер показан? (хотя это не имеет значение)
Код
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.
еще помогите:
в массиве из 10-ти элементов найти сумму чисел больших 1
заполнить двухмерный массив А из k-строк и m-столбцов произвольными числами. Вывести его на экран в виде таблицы
Написать прогу определения длины любого слова
в массиве из 10-ти элементов найти сумму чисел больших 1
заполнить двухмерный массив А из k-строк и m-столбцов произвольными числами. Вывести его на экран в виде таблицы
Написать прогу определения длины любого слова
а где спасибо за предыдущие проги? <_< 
Цитата
в массиве из 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.
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.
Вот я дурак забыл...
ОГРОМНОЕ СПАСИБО!!!!
ОГРОМНОЕ СПАСИБО!!!!
Цитата
Написать прогу определения длины любого слова
Код
var n,i:byte;
v:string;
begin
read(v);
n:=length(v);
writeln(n);
end.
v:string;
begin
read(v);
n:=length(v);
writeln(n);
end.
Код
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.
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.