Пожалуйста, помогите!!!:)
Люди добрые!!! Пожалуйста, помогите!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
Цитата:
Originally posted by denamer
Люди добрые!!! Пожалуйста, помогите!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
Люди добрые!!! Пожалуйста, помогите!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
На каком курсе учишься ....интересно просто. :P
А реализовать код в принципе не сложно...у меня одна проблема толькос "выделив красным(12) цветом искомые числа".
И массив я так понял должен быть изменяющийся?
Цитата:
Originally posted by denamer
Люди добрые!!! Пожалуйста, помогите!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
Люди добрые!!! Пожалуйста, помогите!!!:)
Мне надо решить эту задачу и очень срочно!!!
Помогите!!! Я вообще не понимаю, что нужно делать и с чего начинать!!!
***
Задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 50-ти).
После этого запросить каждый элемент с клавиатуры (целое число). Напечатать массив в одну строку жёлтым(14) цветом. Красным(12) цветом вывести на экран сумму тех чисел, которые больше семи. Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа. Подсчитать их количество и напечатать фиолетовым(13) цветом.
***
Заранее спасибо!!!:)
у меня такой же вопрос насчет искомых чисел... :???:
этот код ищет одно искомое число:
Program Massiv;
Uses Crt;
Var n,i,m,sum:Integer;
A:Array [1..50] Of Integer;
Begin
ClrScr;
Write('Vvedite kolichestvo elementov massiva: '); ReadLn(n);
For i:=1 To n Do
Begin
Write('Vvedite ',i,' element massiva: ');
ReadLn(A);
End;
sum:=0;
ClrScr;
TextColor(Yellow);
For i:=1 To n Do
Begin
If A>7 Then Inc(sum,A);
Write(A:3);
End;
TextColor(Red);
WriteLn(' summa chisel >7 = ',sum);
TextColor(Green);
Write('Vvedite iskomoe chislo: '); ReadLn(m);
sum:=0;
For i:=1 To n Do
Begin
If A=m Then Begin TextColor(12); Inc(sum); End
Else TextColor(10);
Write(A:3);
End;
TextColor(13);
Write(' Kolichestvo iskomuh chisel: ',sum);
ReadKey;
End.
Спасибо большое!!!
Большая часть этой задачи правильно решается!!!
Но смотри! Компьютер пишет строку чисел массива, а затем сумму чисел масива, которые больше 7!
Это всё верно! А потом мне надо, чтобы он на следующей строке написал опять этот же массив только зелёным цветом, причём числа, большие 7, должны быть выделены красным. А рядом фиолетовым написать их количество.
То есть я сам не должен писать искомое число. Искомые числа - это числа массива, большие 7.
Ты сможешь исправить последнюю часть?!!! Пожалуйста!!!! Это очень сильно мне поможет!!!:) Спасибо!!!:)
***
Program Massiv;
Uses Crt;
Var n,i,m,sum:Integer;
A:Array [1..50] Of Integer;
Begin
ClrScr;
Write('Vvedite kolichestvo elementov massiva: '); ReadLn(n);
For i:=1 To n Do
Begin
Write('Vvedite ',i,' element massiva: ');
ReadLn(A);
End;
sum:=0;
ClrScr;
TextColor(Yellow);
For i:=1 To n Do
Begin
If A>7 Then Inc(sum,A);
Write(A:3);
End;
TextColor(Red);
WriteLn(' summa chisel >7 = ',sum);
TextColor(Green);
Write('Vvedite iskomoe chislo: '); ReadLn(m);
sum:=0;
For i:=1 To n Do
Begin
If A=m Then Begin TextColor(12); Inc(sum); End
Else TextColor(10);
Write(A:3);
End;
TextColor(13);
Write(' Kolichestvo iskomuh chisel: ',sum);
ReadKey;
End.
***
Мне нужно эту задачу решить, а ещё одну, которую учитель дал сегодня! Они похожи, но я всё равно не напишу сам.
Это последняя! Я ужасно благодарен тебе!!!:) Спасибо!!! Реши эту, пожалуйста!!! Ты не представляете, как это важно!!!
Заранее спасибо!
2 задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 100-a). Заполнить массив случайными числами из промежутка [-22;22].
Напечатать массив в одну строку жёлтым цветом(14). Затем красным(12) цветом вывести на экран сумму всех чисел, которые меньше 7 (<7). Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа (то есть числа, которые меньше 7). Подсчитать их количество и напечатать фиолетовым(13) цветом.
Большая часть этой задачи правильно решается!!!
Но смотри! Компьютер пишет строку чисел массива, а затем сумму чисел масива, которые больше 7!
Это всё верно! А потом мне надо, чтобы он на следующей строке написал опять этот же массив только зелёным цветом, причём числа, большие 7, должны быть выделены красным. А рядом фиолетовым написать их количество.
То есть я сам не должен писать искомое число. Искомые числа - это числа массива, большие 7.
Ты сможешь исправить последнюю часть?!!! Пожалуйста!!!! Это очень сильно мне поможет!!!:) Спасибо!!!:)
***
Program Massiv;
Uses Crt;
Var n,i,m,sum:Integer;
A:Array [1..50] Of Integer;
Begin
ClrScr;
Write('Vvedite kolichestvo elementov massiva: '); ReadLn(n);
For i:=1 To n Do
Begin
Write('Vvedite ',i,' element massiva: ');
ReadLn(A);
End;
sum:=0;
ClrScr;
TextColor(Yellow);
For i:=1 To n Do
Begin
If A>7 Then Inc(sum,A);
Write(A:3);
End;
TextColor(Red);
WriteLn(' summa chisel >7 = ',sum);
TextColor(Green);
Write('Vvedite iskomoe chislo: '); ReadLn(m);
sum:=0;
For i:=1 To n Do
Begin
If A=m Then Begin TextColor(12); Inc(sum); End
Else TextColor(10);
Write(A:3);
End;
TextColor(13);
Write(' Kolichestvo iskomuh chisel: ',sum);
ReadKey;
End.
***
Мне нужно эту задачу решить, а ещё одну, которую учитель дал сегодня! Они похожи, но я всё равно не напишу сам.
Это последняя! Я ужасно благодарен тебе!!!:) Спасибо!!! Реши эту, пожалуйста!!! Ты не представляете, как это важно!!!
Заранее спасибо!
2 задача.
Запросить с клавиатуры количество членов одномерного массива (не больше 100-a). Заполнить массив случайными числами из промежутка [-22;22].
Напечатать массив в одну строку жёлтым цветом(14). Затем красным(12) цветом вывести на экран сумму всех чисел, которые меньше 7 (<7). Перевести курсор на другую строку и напечатать этот массив ещё раз зелёным(10) цветом, выделив красным(12) цветом искомые числа (то есть числа, которые меньше 7). Подсчитать их количество и напечатать фиолетовым(13) цветом.
А используя уже приведенную LastSoul-ом прожку и мозг... слабо решить задачку?
Таня права, почемубы своей головой не подумать, ведь там всего пару строчек поменять и все, ну раз для тебя это действительно так трудно то смотри код ниже...
А в первой задаче удали строку
Write('Vvedite iskomoe chislo: '); ReadLn(m);
и где написано A=m напиши (вместо этого) A>7
кстати ты еще переменную M убери из VAR-а
она тебе больше не нужна.
Задача №2:
Program Massiv;
Uses Crt;
Var n,i,sum:Integer;
A:Array [1..100] Of Integer;
Begin
ClrScr;
Randomize;
Write('Vvedite kolichestvo elementov massiva: '); ReadLn(n);
For i:=1 To n Do A:=Random(45)-22;
sum:=0;
ClrScr;
TextColor(Yellow);
For i:=1 To n Do
Begin
If A<7 Then Inc(sum,A);
Write(A:4);
End;
TextColor(Red);
WriteLn(' summa chisel <7 = ',sum);
sum:=0;
For i:=1 To n Do
Begin
If A<7 Then Begin TextColor(Red); Inc(sum); End
Else TextColor(Green);
Write(A:4);
End;
TextColor(13);
Write(' Kolichestvo iskomuh chisel: ',sum);
ReadKey;
End.
А в первой задаче удали строку
Write('Vvedite iskomoe chislo: '); ReadLn(m);
и где написано A=m напиши (вместо этого) A>7
кстати ты еще переменную M убери из VAR-а
она тебе больше не нужна.
Задача №2:
Program Massiv;
Uses Crt;
Var n,i,sum:Integer;
A:Array [1..100] Of Integer;
Begin
ClrScr;
Randomize;
Write('Vvedite kolichestvo elementov massiva: '); ReadLn(n);
For i:=1 To n Do A:=Random(45)-22;
sum:=0;
ClrScr;
TextColor(Yellow);
For i:=1 To n Do
Begin
If A<7 Then Inc(sum,A);
Write(A:4);
End;
TextColor(Red);
WriteLn(' summa chisel <7 = ',sum);
sum:=0;
For i:=1 To n Do
Begin
If A<7 Then Begin TextColor(Red); Inc(sum); End
Else TextColor(Green);
Write(A:4);
End;
TextColor(13);
Write(' Kolichestvo iskomuh chisel: ',sum);
ReadKey;
End.
Спасибо огромное!!!:)
Это неоценимый труд для меня!
Я очень благодарен.
Хот бы домашние задачи решил, а на зачёте вообще не знаю, как быть?!!!:)
Спасибо ещё раз!!!
Всё-таки у нас есть добрые люди!!!:)
Спасибо!
Это неоценимый труд для меня!
Я очень благодарен.
Хот бы домашние задачи решил, а на зачёте вообще не знаю, как быть?!!!:)
Спасибо ещё раз!!!
Всё-таки у нас есть добрые люди!!!:)
Спасибо!