Условие: Напишите прогу в которой осуществляется ввод целых чисел и подсчет введенных положительных и отрицательный чисел.
5-9 класс
|
Задание: преобразуйте в условие окончания работы в условие продолжение работы(while)
program abc;
uses crt;
const n=20;
type massiv=array[1..n] of integer;
var a:massiv;
i,minus,plus:integer;
begin
i:=1;
while i<>n do begin
a[i]:=random(100)-50;
i:=i+1;
end;
i:=1;
while i<>n do begin
write(a[i]:3);
i:=i+1;
end;
i:=1;
while i<>n do begin
if (a[i]<0) then minus:=minus+1;
i:=i+1;
end;
i:=1;
while i<>n do begin
if a[i]>0 then plus:=plus+1;
i:=i+1;
end;
writeln('Кол-во отрицательных = ',minus);writeln('Кол-во положительных= ',plus);
end.
For( n = 1; n != 0; )
{
printf( "Enter n (0 for quit): '); scanf( "%d", &n );
pos += n > 0;
neg += n < 0;
}
printf( "Положительных: %d\nОтрицательных: %d\n, pos, neg );
Другие вопросы из категории
формате bmp. Посмотри на графы обмена и определи тот, в котором количество загрузок было наибольшим и посчитай максимальной объем, загруженной на одну
флэшку информации в Кб.
Какая информация является исходной для врача, регулировщика движения?
Спасибо заранее:3
символа используйте некоторая кодировка,при которой символ кодируется 8 битами.Опредилите информационный объем ученика.
2. Расположите в порядке возрастения:1040 байт,1Кбайт,24бит,2байт,12бит.
3. Сколько байт в половине 1 Мбайта?
Помоте быстрей!!!!
1)для чисел от а до 30,вывести на экран сами числа и их сумму с числом 123.
2)вывести на экран таблицу умножение на 4(1-10)
Читайте также
Задание: преобразуйте в условие окончания работы в условие продолжение работы(while)
арифметического введенных положительных чисел. Используйте оператор repeat.
большего) из введёных чисел.Используйте оператор repeat. Решить в паскале.
итического введённых положительных чисел.Используйте оператор repeat.
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!