|
Вопрос # 6 072/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
189 задача.
на паскале сделала, делфи вообще не знаю.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задала: plyushka (статус: Посетитель)
Вопрос отправлен: 14 апреля 2012, 03:39
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 15 апреля 2012, 08:32; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 14 апреля 2012, 07:01 [#1]:
Цитата (plyushka):
на паскале сделала, делфи вообще не знаю.
Покажи своё изделие, скажу, как переделать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 14 апреля 2012, 10:55 [#2]:
Цитата (min@y™):
Покажи своё изделие
Даже набить времени не хватило, куда уж показывать 
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
plyushka (статус: Посетитель), 14 апреля 2012, 14:04 [#4]:
Program z189;
uses crt;
var a:array[1..20] of integer;
i,n,pol,otr:byte;
begin
write ('vvedite n=');
repeat
read(n);
until n in [1..20];
write ('Massiv: ');
for i:=1 to n do
begin
a[i]:=random(5)-2;
write(a[i], ' ');
if a[i] in [1..2] then inc(pol);
if a[i]<0 then inc(otr);
end;
for i:=1 to n do
begin
if not a[i] in [1..2] then a[i]:=1;
end;
writeln;
write('Izmenenniu massiv: ');
for i:=1 to n do begin
write (a[i], ' ');
end;
writeln;
writeln('otricatelnuh elementov: ',otr);
writeln('elementov v diapazone [1..2]: ',pol);
end.
Это паскаль. делфи в глаза ни разу не видела даже и не знаю.
Я не блондинка, увы. и не школяр.
|
|
|
min@y™ (статус: Доктор наук), 15 апреля 2012, 08:32 [#5]:
Брюки превращаются...
program z189;
//uses crt; Этот модуль в твоей программе не используется
{$APPTYPE CONSOLE}
var
a:array[1..20] of integer;
i,n,pol,otr:byte;
begin
write('vvedite n=');
repeat
read(n);
until n in [1..20];
write ('Massiv: ');
for i:=1 to n do
begin
a[i]:=random(5)-2;
write(a[i], ' ');
if a[i] in [1..2]
then inc(pol);
if a[i]<0
then inc(otr);
end;
for i:=1 to n do
begin
if not (a[i] in [1..2])
then a[i]:=1;
end;
writeln;
write('Izmenenniu massiv: ');
for i:=1 to n do
begin
write (a[i], ' ');
end;
writeln;
writeln('otricatelnuh elementov: ',otr);
writeln('elementov v diapazone [1..2]: ',pol);
end.
Вуаля!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
18 апреля 2012, 17:16: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): min@y™ дал решение.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
