Составьте и запишите КОМПЬЮТЕРНУЮ программку на языке программированияПаскаль для решения
Составьте и запишите КОМПЬЮТЕРНУЮ программку на языке программирования
Паскаль для решения последующей задачки:
Отыскать номер (т.е. индекс) третьего положительного элемента массива и вывести их (и элемент и индекс) на экран с подходящим известием. Массив обязан состоять не более чем из 10 целых чисел и вводиться с клавиатуры. Диалог с userom!!! Переменные!!!
2 ответа
Валерка
Program Massiv;
APPTYPE CONSOLE
uses SysUtils;
var i: integer; // счетчик
a: array[1..10] of Integer; // объявляем массив из 10 целых частей
begin
// Вводим элементы массива с клавиатуры
for i:=1 to 10 do // цикл
begin
writeln('vvedite element massiva i nagmite gt;gt;ENTER');
write('a[',i,']=');
write(a[i]);
read(a[i])
end;
i:=1;
j:=0;// счетчик для поиска 3-го элемента
repeat
if a[i]lt;=0
then
inc(i) // переходим к последующему элементу
else
begin
inc(j); // отмечаем отысканный положительный элемент
inc(i) // переходим к последующему элементу
end;
until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
// или не проверен весь массив
if j=3
then // есть как минимум три положительных элемента в массиве
writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])
else // в массиве меньше 3-х положительных частей
writeln('Net 3 pologitelnogo eltmenta = ');
readln;
readln
TODO -oUser -cConsole Main : Insert code here
end.
APPTYPE CONSOLE
uses SysUtils;
var i: integer; // счетчик
a: array[1..10] of Integer; // объявляем массив из 10 целых частей
begin
// Вводим элементы массива с клавиатуры
for i:=1 to 10 do // цикл
begin
writeln('vvedite element massiva i nagmite gt;gt;ENTER');
write('a[',i,']=');
write(a[i]);
read(a[i])
end;
i:=1;
j:=0;// счетчик для поиска 3-го элемента
repeat
if a[i]lt;=0
then
inc(i) // переходим к последующему элементу
else
begin
inc(j); // отмечаем отысканный положительный элемент
inc(i) // переходим к последующему элементу
end;
until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
// или не проверен весь массив
if j=3
then // есть как минимум три положительных элемента в массиве
writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])
else // в массиве меньше 3-х положительных частей
writeln('Net 3 pologitelnogo eltmenta = ');
readln;
readln
TODO -oUser -cConsole Main : Insert code here
end.
Ксюха Коява
Поправил, но сейчас необходимо отредактировать текст в том месте, где поправил!:)
Варвара Соворенкова
Все поправил.:)
Юля Тарад
Var a: array[1..10] of integer;
i,j,k: integer;
begin
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
j:=0; k:=0;
for i:=1 to n do
begin
if a[i]gt;0 then
begin j:=j+1; if j=3 then k:=i; end;
end;
if kgt;0
then writeln('Третий положительный элемент: a[',k,'] = ',a[k])
else writeln('В массиве нет трех положительных элементов');
readln;
end.
Пример:
a[1] = -5
a[2] = 8
a[3] = -9
a[4] = 7
a[5] = -3
a[6] = -1
a[7] = 6
a[8] = -3
a[9] = 2
a[10] = 4
3-ий положительный элемент: a[7] = 6
i,j,k: integer;
begin
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
j:=0; k:=0;
for i:=1 to n do
begin
if a[i]gt;0 then
begin j:=j+1; if j=3 then k:=i; end;
end;
if kgt;0
then writeln('Третий положительный элемент: a[',k,'] = ',a[k])
else writeln('В массиве нет трех положительных элементов');
readln;
end.
Пример:
a[1] = -5
a[2] = 8
a[3] = -9
a[4] = 7
a[5] = -3
a[6] = -1
a[7] = 6
a[8] = -3
a[9] = 2
a[10] = 4
3-ий положительный элемент: a[7] = 6
Руслан Паденков
Я вывел 1-й положительный элемент, просто по невнимательности. Естественно для вывода 3-го нуже еще один счетчик, например, k:=0 и который будет возрастать на 1 при нахождении следующего положительного элемента. И если к=3, то выводим найденный элемент.
Константин Лукгин
И некие иные аспекты, которые надо учесть.
Инна Ичина
ОК. Вам дадут возможность поправить свой ответ.
Ксюха Чернийчук
Спасибо. Правда я теснее видел ваш.:)
Анна Девяшина
Я просто безусловно правдиво искал 1-ый элемент положительный, так как каким-то чудом я пропустил слово третий и был премного удивлен, лицезрев ваше решение.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов