| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
масивчик (
G-leb © (2012-11-16 21:05:00)Задали массив чисел A (n) , n ≤ 500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются, и произведение всех чисел, которые не повторяются
///Задайте значение действительным величинам произвольным образом в диапазоне от 0 до 100///
uses
SysUtils;
const n = 500;
type mas = array[1..n] of integer;
var a: mas; i: byte;
begin writeln('vvod:');
for i:=1 to n do readln(a[i]);
writeln('vuvod:');
for i:=1 to n do write(a[i]:n);
readln;
end.
вот масив .. как дописать чтоб находило похожие и добавляло ... а не походие умножало ?
брат Птибурдукова (2012-11-17 16:25:00) [1]
> какого хрена мне uses ctr; ошибку показывает
Боже, как нас били за усес црт, цлрсцр и прочий украшайзинг в программах, вовсе не требовавших такового...
Очень Злой (2012-11-17 15:20:00) [2]Блин, не до конца прочитал ветку. А тут уже оказывается все разжевали...
Очень Злой (2012-11-17 15:12:00) [3]
> вот масив .. как дописать чтоб находило похожие и добавляло
> ... а не походие умножало ?
Как вариант - сортируем массив например по возрастанию и затем пробегаемся по нему... все повторяющиеся числа после сортировки будут рядом, так что вычислить их не составит труда.
Anatoly Podgoretsky (2012-11-17 09:55:00) [4]
> смени процессор
Что вы все Windows, процессор, надо что нибудь попроще, например сменить F1
zzzz (2012-11-17 05:18:00) [5]Удалено модератором
G-leb (2012-11-17 03:24:00) [6]Удалено модератором
Германн (2012-11-17 02:08:00) [7]
> G-leb (17.11.12 01:23) [47]
>
> у меня есть образование одно ... МАРКЕТОЛОГ ... но мне
> нравится программирование
Нравится/Не нравится - надо учиться, а не списывать.
Врачей, которые "списывали" четыре года в институте, и ещё один год в ординатуре - в биореактор однозначно!
G-leb (2012-11-17 01:36:00) [8]
> Глеб, представь что оперирующий тебя врач прибежал на форум
> с вопросом "с какой стороны аппендицит"?
врачей не допустят до операции если они на 1 курсе проучились 2 месяца сам то понял че пишешь .. не удачный пример
G-leb (2012-11-17 01:24:00) [9]
> Лучше сменить профессию будущую на такую где нет ни процессоров,
> ни F1, ни вообще компьютеров.
а вообще я дизайнером работаю и верстаю немного
G-leb (2012-11-17 01:23:00) [10]у меня есть образование одно ... МАРКЕТОЛОГ ... но мне нравится программирование
G-leb (2012-11-17 01:22:00) [11]
program lab5;
{$APPTYPE CONSOLE}
uses
ctr;
Var
mas : array [1..500] of integer;
n, i, j,k : integer;
begin
clrscr;
randomize;
write('pazmernost masiva:'); readln(n);
for i := 1 to n do
mas[i] := random (100);
writeln ('masiv do sortirovki');
for i := 1 to n do write(mas[i]:3);
for j:=1 to n-1 do
for i:=1 to n-j do
if (mas[i] > mas[i+1]) then
begin k:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=k end;
writeln; writeln ('masiv posle sortirovki');
for i := 1 to n do write(mas[i]:3); readkey;
end.
какого хрена мне
usesошибку показывает
ctr;
Германн (2012-11-17 01:15:00) [12]
> смени винду
> смени процессор
>
Лучше сменить профессию будущую на такую где нет ни процессоров, ни F1, ни вообще компьютеров.
Inovet (2012-11-17 01:03:00) [13]> [43] Sha © (17.11.12 00:59)
> смени процессор
Мозг что ли? Ещё не всё потеряно - можно потренировать.
Sha (2012-11-17 00:59:00) [14]смени процессор
G-leb (2012-11-17 00:58:00) [15]
> Ужас. Вирус, наверное, блокирует?
процессор не может работать с такими тяжелыми приложениями как справка
Inovet (2012-11-17 00:50:00) [16]> [36] G-leb (17.11.12 00:40)
> не 7 винде не работает ф1
Ужас. Вирус, наверное, блокирует?
G-leb (2012-11-17 00:49:00) [17]а гг )) промежутки между числами )
Sha (2012-11-17 00:43:00) [18]>G-leb (17.11.12 00:40) [36]
>не 7 винде не работает ф1
смени винду
Сергей М. (2012-11-17 00:42:00) [19]
> не 7 винде не работает ф1
Гуголь тоже не работает на "7 винде" ?
Это же "гнилая отмазка")
G-leb (2012-11-17 00:40:00) [20]не 7 винде не работает ф1
| |
Страницы: 