ПОМОГИТЕ!!!!
Помогите бедной студентке...
Совершенно не понимаю Paskal!!!
А нужен срочно допуск к экзамену по информатике!!!
Вот задача:
Задан массив, найти все элементы которые не повторяются
5 2 3 4 5 3 x
-8 5 -3 7 1 3 x
-8 0 -3 0 0 -3 y
Помогите плиззз!!!:{
Совершенно не понимаю Paskal!!!
А нужен срочно допуск к экзамену по информатике!!!
Вот задача:
Задан массив, найти все элементы которые не повторяются
5 2 3 4 5 3 x
-8 5 -3 7 1 3 x
-8 0 -3 0 0 -3 y
Помогите плиззз!!!:{
Цитата:
Originally posted by Brisk77
Помогите бедной студентке...
Совершенно не понимаю Paskal!!!
А нужен срочно допуск к экзамену по информатике!!!
Вот задача:
Задан массив, найти все элементы которые не повторяются
5 2 3 4 5 3 x
-8 5 -3 7 1 3 x
-8 0 -3 0 0 -3 y
Помогите плиззз!!!:{
Помогите бедной студентке...
Совершенно не понимаю Paskal!!!
А нужен срочно допуск к экзамену по информатике!!!
Вот задача:
Задан массив, найти все элементы которые не повторяются
5 2 3 4 5 3 x
-8 5 -3 7 1 3 x
-8 0 -3 0 0 -3 y
Помогите плиззз!!!:{
не очень понятно в вашей записи про массив, ну да ладно.
Код:
var i,j:word;
a:array[1..100] of integer;
povtor:array[1..100] of boolean;
begin
for i:1 to 100 do povtor:=false;
for i:=1 to 100 do
for j:=1 to 100 do if(a<>a[j])and(i<>j)and(not povtor) then povtor:=false
else povtor:=true;
end.
a:array[1..100] of integer;
povtor:array[1..100] of boolean;
begin
for i:1 to 100 do povtor:=false;
for i:=1 to 100 do
for j:=1 to 100 do if(a<>a[j])and(i<>j)and(not povtor) then povtor:=false
else povtor:=true;
end.
где-то так, но программа не отлажена, поэтому может делать все что угодно, но наверное работает:) проверьте пожалуйста
[/code]
где-то так, но программа не отлажена, поэтому может делать все что угодно, но наверное работает:) проверьте пожалуйста [/QUOTE]
Спасибочки!:)
Сейчас проверю!!!
где-то так, но программа не отлажена, поэтому может делать все что угодно, но наверное работает:) проверьте пожалуйста [/QUOTE]
Спасибочки!:)
Сейчас проверю!!!