 |
|
26.11.2009, 00:33
|
|
Участник форума
Регистрация: 04.03.2009
Сообщений: 298
С нами:
9046285
Репутация:
229
|
|
Нулевые элементы это в смысле ячейка массива равна нулю?
Если да, то
Program lol;
uses crt;
var a:array [1..5];
i,temp:integer;
begin
clrscr;
Randomize;
For i:=1 to 5 do
A[i]:=random(10);
Writeln ('Indexi nulevih elementov: ');
If a[i]:=0 then begin
Temp:=Temp+1;
Writeln (i):3;
end
Writeln ('Nulevih elementov : ',Temp);
end.
|
|
|
26.11.2009, 00:33
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
С нами:
8871700
Репутация:
41
|
|
Сообщение от Hunter123
да и на следуйщую неделю ну нужна будет исчо помощ в програмках таких простеньких
я попожже виложу задание.
А сам не хочешь научится?
|
|
|
|
26.11.2009, 00:37
|
|
Новичок
Регистрация: 03.11.2009
Сообщений: 25
С нами:
8694676
Репутация:
0
|
|
я вот хочу но не понимаю. Может порадите простую какуюто книгу...или исчо штото ???
|
|
|
|
26.11.2009, 00:42
|
|
Новичок
Регистрация: 03.11.2009
Сообщений: 25
С нами:
8694676
Репутация:
0
|
|
Сообщение от banana
Нулевые элементы это в смысле ячейка массива равна нулю?
Если да, то
Program lol;
uses crt;
var a:array [1..5];
i,temp:integer;
begin
clrscr;
Randomize;
For i:=1 to 5 do
A[i]:=random(10);
Writeln ('Indexi nulevih elementov: ');
If a[i]:=0 then begin
Temp:=Temp+1;
Writeln (i):3;
end
Writeln ('Nulevih elementov : ',Temp);
end.
нет не то но спасибо буду знать.
|
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Turbo Pascal...Need help....
|
eworld.uz |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
2 |
13.11.2009 20:44 |
|
Задачи. Turbo Pascal
|
Richard |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
13 |
18.05.2009 21:13 |
|
turbo pascal
|
sadfeel |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
0 |
28.02.2009 19:37 |
|
TURBO PASCAL 7 1.0
|
Daemond |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
1 |
03.12.2008 22:32 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
