М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
averianova1986
averianova1986
20.09.2020 06:05 •  Информатика

Нп завтро надо найдите количество положительных и количество отрицательных элементов массива из 8 целвх чисел. заранее

👇
Ответ:
mbilalov
mbilalov
20.09.2020
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(8,-30,30); a.Println;
  writeln('Положительных: ',a.Where(x->x>0).Count);
  writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.

Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
4,5(65 оценок)
Ответ:
dragon64
dragon64
20.09.2020
Program n1;
var a: array[1..8] of integer;
ko,kp,i: integer;
begin
write('массив: ');
ko:=0;
kp:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then kp:=kp+1;
if a[i]<0 then ko:=ko+1;
end;
writeln;
writeln('количество отрицательных: ',ko);
write('количество положительных: ',kp);
end.
4,5(96 оценок)
Открыть все ответы
Ответ:
карим050
карим050
20.09.2020

Часть программы. Решение задач

1. Найдите ошибку в программе:

program ;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

2. Найдите ошибку в программе:

program Prim 2 1;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f ); p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

3. Найдите ошибку в программе:

program Prim_2_1;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

4. Найдите ошибку в программе:

program Prim_2_1;

var a,b:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

5. Найдите ошибку в программе:

program Prim_2_1;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

6. Найдите ошибку в программе:

program Prim_2_1;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

writeln('p=',p);

readln

end.

7. Найдите ошибку в программе:

program Prim_2_1;

var a,b,c,d,f,p:integer;

writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p:=a+b+c+d+f;

writeln('p=',p);

readln

end.

8. Следующий алгоритм в результате выполнения программы находит:

program Prim_2_3;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p:=a+b+c;

writeln('p=',p);

readln

end

9. Найдите ошибку в программе:

program Prim_2_1;

var a,b,c,d,f,p:integer;

begin writeln('Введите 5 численных значений:');

readln(a,b,c,d,f );

p=:a+b+c+d+f;

writeln('p=',p);

readln

end.

4,6(1 оценок)
Ответ:
ErnurNick
ErnurNick
20.09.2020

Лови решение на с++ с do while

Объяснение:

1 задача, ну тут все элементарно, думаю пояснения не нужны:

#include <iostream>

using namespace std;

int main() {

int a = 1, num;

cin >> num;

do {

 cout << a << " ";

 a += 2;

} while (a < num * 2);

}

2 задача (num++ делаю только для удобства, но можно везде использовать num + 1, при этом в условии надо написать a <= num):

#include <iostream>

using namespace std;

int main() {

int a = 1, num;

cin >> num;

num++;

do {

 cout << a << " + " << num - a << " = " << num << endl;

 a++;

} while (a < num);

}

4,7(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ