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

1. какие типы диаграмм существуют?
почему у одной диаграммы имеется несколько видов?
можно ли поменять подписи данных у готовой диаграммы? каким об-
разом?
и как можно поменять тип диаграммы?
к какие дополнительные вкладки появляются в электронной таблице при
выделении диаграммы?
в как настроить диаграмму, чтобы она могла максимально визуализиро-
вать данные?
7. как удалить диаграмму?
8. объясните, какие виды графиков изображены на рис. 3.42.
почему изображены два графика в одной координатной плоскости?
какой график наиболее информативный

👇
Открыть все ответы
Ответ:
камаз9
камаз9
22.01.2022

[any] Pascal: (без хранения введённых чисел => "эффективная")

var a, i, x: integer; begin  for i := 1 to 6 do  begin    read(a);    if a>0 then x := x + 1    else if a<0 then x := x - 1  end;  if x>0 then write('Больше положительных')  else if x<0 then write('Больше отрицательных')  else write('Одинаково')end.

PascalABC.NET: (с хранением введённых чисел в массиве)

## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы:


Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
4,7(19 оценок)
Ответ:
чина22
чина22
22.01.2022
//PascalABC.Net 3.2
{1}
begin
var a:=readArrinteger('Вводите: ', readinteger('n ='));
write ('Ср. арифметическое: ', a.Average);
end.

{2}
begin
var a:=readarrinteger('Водите: ', readinteger('n ='));
var sum:=0;
for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i];
write ('Сумма: ', sum);
end.

{3}
begin
var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: '));
var otr:=0; var pol:=0;
for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1;
write('Массив: '); a.Println;
if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else 
if otr>pol then write('Отрицательных больше на ', otr-pol) else
write ('Положительных больше на ', pol-otr);
end.
4,7(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ