[Pascal] - [Всё внутри] - Форум
Пятница, 09.12.2016, 06:50
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Всё внутри] ([-] - [Массивы])
[Pascal] - [Всё внутри]
Outstanding_citizenДата: Четверг, 10.03.2011, 03:46 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Формат входных данных

Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.

Формат выходных данных

Необходимо вывести все элементы массива с четными индексами (то есть A[0], A[2], A[4], ...).

-Очень интересно узнать решение, так как у самого ничего не получается.

примерный код

Code

          Program e64;
          var
          
            k,n,iNumCount:integer;
          
            s:string;
              a:array [0..100] of integer;
          
          begin
          
            readln(n);
          
            readln(s);
          
            iNumCount := 0;
          
           A[iNumCount] := 0;
          
          for k:=1 to lenght(s) do
          
              if S[k]<>' '
          
                Then A[iNumCount] := A[iNumCount] * 10 + Ord(S[k])-Ord('0')
          
                Else begin Inc(iNumCount); A[iNumCount] := 0; end;
          
            end;
         writeln;
            For k := 0 to iNumCount do

              if  ((k mod 2) = 0) then
         
                 write(A[k]);else write(' ')
         
          end.

-Пред тем как писать, проверьте на

http://informatics.mccme.ru/
>Массивы>Одномерные массивы>Задача А

Сообщение отредактировал Outstanding_citizen - Четверг, 10.03.2011, 21:09
 
nikitosДата: Четверг, 10.03.2011, 14:50 | Сообщение # 2
Полковник
Группа: Новичок
Сообщений: 35
[ 0 ]
Статус: Offline
Пиши в личку:
ns5d@mail.ru
icq 629208846
 
flash_kpiДата: Четверг, 10.03.2011, 14:52 | Сообщение # 3
Генералиссимус
Группа: Заблокированные
Сообщений: 118
[ 0 ]
Статус: Offline
Если проблема осталась, обращайся
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
melvinДата: Четверг, 10.03.2011, 18:19 | Сообщение # 4
Подполковник
Группа: Заблокированные
Сообщений: 22
[ 0 ]
Статус: Offline
Стучи в аську, помогу: 648964446
 
Outstanding_citizenДата: Четверг, 10.03.2011, 21:11 | Сообщение # 5
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Стучатся я ни к кому не буду, выкладывайте все сюда.
 
flash_kpiДата: Четверг, 10.03.2011, 21:21 | Сообщение # 6
Генералиссимус
Группа: Заблокированные
Сообщений: 118
[ 0 ]
Статус: Offline
Чесно скажу, с такой политикой далеко ты не уедешь
 
defaultNick6919Дата: Суббота, 12.03.2011, 03:10 | Сообщение # 7
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
var k,n,i,j:integer;
s:string;
a:array [0..100] of integer;
begin
readln(n);
readln(s);
i:=0;
k:=1;
repeat
a[i]:=0
for j:=k to length(s) do
begin
if(s[j]<>' ' then a[i]:=a[i]*10+s[j]
else begin
n:=n+1;
k:=k+1;
break;
end;
k:=k+1;
end;
until(k<(length(s)+1));
for i:=0 to n do begin
writeln('A(',i,') = ',a[i]);
i:=i+1;
end;
end.
 
Outstanding_citizenДата: Воскресенье, 20.03.2011, 23:33 | Сообщение # 8
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Спасибо всем. flash_kpi, а в чем я неправ? Я просто хочу, чтобы все сюда выкладывали. Ты не подумал что у кого то могут быть похожие проблемы...
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Всё внутри] ([-] - [Массивы])
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016