Массив не знаю как решить .

@Dawa · Регистрация: 24.11.2009

1) Даны два массива А(10), В(10). В массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.

2) Написать программу, которая в каждом слове строки, содержащем заданный слог, первое вхождение этого слога переставляет в начало слова

хотябы одну плззз

@Давид · 25.11.2009, 11:10

Dawa, Вот первая - выполнена для одного массива - вам самостоятельно проделать тоже самое со вторым!

Pascal

program hhh;
Uses crt;
const n=10;
 Var x,y:array [1..10] of real;
     i,j:integer;
begin
clrscr;
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:4:2,' ');
writeln;
j:=0;
for i:=1 to n do
  if x[i]=0 then begin
                  j:=i;
                  break;
                  end;
writeln ('Pervyi element = 0 na ',j,' meste ');
for i:=1 to j do
x[i]:=0.5;
writeln ('OtBet ');
for i:=1 to n do
write (x[i]:4:2,' ');
readln
end.

@кот Бегемот · 25.11.2009, 11:46

Давид, 23 строка:

Pascal

1	for i:=1 to j-1 do

до 1 элемента

@unick12345 · 25.11.2009, 11:55

а почему бы не так?

Pascal

p:=0; {признак нулевого эл-а}
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]=0 then p:=1;
if p=0 then a[i]:=0.5;
end;
for i:=1 to 10 do
write(a[i],' ');
writeln;

и тоже самое для второй

@кот Бегемот · 25.11.2009, 13:17

Можно, но обычно сначала требуют ввести данные, а потом уж обрабатывать, а так - здесь половину задач на вводе можно было решить

@Dawa 1 / 1 / 0 Регистрация: 24.11.2009 Сообщений: 4
		1
	Массив не знаю как решить . 24.11.2009, 21:47. Показов 496. Ответов 4 Метки нет (Все метки) 1) Даны два массива А(10), В(10). В массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5. 2) Написать программу, которая в каждом слове строки, содержащем заданный слог, первое вхождение этого слога переставляет в начало слова хотябы одну плззз __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@кот Бегемот Платежеспособный зверь 8747 / 4180 / 1606 Регистрация: 28.10.2009 Сообщений: 11,321
	25.11.2009, 13:17	5
	Можно, но обычно сначала требуют ввести данные, а потом уж обрабатывать, а так - здесь половину задач на вводе можно было решить 0

Опции темы