6. Napisz program wczytujący do tablicy A 10 dowolnych liczb naturalnych z przedziału od 1 do 10.
Zadaniem programu jest wyświetlenie informacji w których elementach tablicy jest zapisana liczba 8 .
Pascal, tablice
-
mateusz.ex
- Użytkownik
- Posty: 459
- Rejestracja: 16 wrz 2008, o 20:50
- Płeć: Kobieta
- Lokalizacja: gradowa
- Podziękował: 357 razy
-
klaustrofob
- Użytkownik
- Posty: 1984
- Rejestracja: 11 lis 2007, o 07:29
- Płeć: Mężczyzna
- Lokalizacja: inowrocław
- Podziękował: 1 raz
- Pomógł: 607 razy
Pascal, tablice
Kod: Zaznacz cały
var x: integer;
var a: array[10];
for j=1 to 10 do
begin
a[j]:=readln(x);
if a[j]=8 then
writeln(j);
end