Turbo Pascal - praca domowa stwórz tablicę

[Rastaman697]

Mam prośbę mógłby mi ktoś napisać taki program w języku turbo pascal:)
Stwórz tablicę na której wprowadzisz 100 liczb od 1 do 1000 zsumuj liczby podzielne bez reszty przez 3 i 5 wynik podaj poniżej

[Nethia]

Mysle ze powinno byc dobrze:) Choc jestes pewny ze to ma byc 100 liczb podanych w zakresie <1,1000>? a nie poprostu wpisane w tablice liczby od 1 do 100? Bo komu chce sie wpisywac 100 liczb xD

Kod: Zaznacz cały

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type t=array[1..100] of integer;

procedure wpis(var tablica: t);
  var i:integer;
  begin
    for i:=1 to 100 do
      begin
        write('Podaj ', i, ' element tablicy ');
        readln(tablica[i]);
      end;
  end;

function suma(tablica:t):integer;
var i,sum:integer;
begin
  sum:=0;
  for i:=1 to 100 do
    if(tablica[i]mod 3=0) and ( tablica[i]mod 5=0) then
      sum:= sum + tablica[i];
    suma:=sum;
end;

var tablica: t;
    i:integer;
begin
wpis(tablica);
writeln(suma(tablica));
readln;
end.

Jesli jednak maja byc to liczby od 1 do 100 to linijki

Kod: Zaznacz cały

write('Podaj ', i, ' element tablicy ');
        readln(tablica[i]);

zastąp:

Kod: Zaznacz cały

tablica:=i;

Mam nadzieje ze pomogłam

[matthewmaster04]

Kod: Zaznacz cały

tablica[i]:=i;

taka mala korekta:D

[Natasha]

Czy mógłby ktoś przerobić to na zwykły pascal? Proszę.

[Xitami]

To jest zwykły Pascal, no może poza wierszem [3], pozbądź się o i już.

[Natasha]

A to procedure i function też występuje z dev-pascalu?
Coś nie chce działać ten program, bo nie oblicza sumy...

[matthewmaster04]

program dziala, wpisz w 2 wierszach tam gdzie for : 'for i:=1 to 5 do' , skompiluj i podaj liczby: 30 , 2 , 30 , 4 , 5 . Wynik wyjdzie 60 tak jak wymaga tego zadanie.