Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

НА QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и

5-9 класс

массив вывести на экран.

2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.

3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.

4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров.

5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран.

6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран.

Twinkisle 18 авг. 2013 г., 4:35:03 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
ОёЁшЕнЬкИ
18 авг. 2013 г., 7:18:26 (10 лет назад)

5 6)
input n
dim a(n)

for i=1 to n
  input a(i)
next i

for i=1 to n
  for j=i to n
  if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону
    t=a(i)
    a(i)=a(j)
    a(j)=t
  end if  
  next j
next i

for i=1 to n
  print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1

for i=1 to n
  input a(i)
next i

for i=1 to n
  if a(i)>0 then p=p*a(i)
  if a(i)<0 then s=s+a(i)*a(i)
  if a(i)=0 then a(i)=12
next i

for i=1 to n
  print a(i);
next i

print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0

for i=1 to n
  input a(i)
next i

for i=1 to n
  if i mod 2 =0  then s=s+a(i)
next i

print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0

for i=1 to n
  input a(i)
next i

for i=1 to n
  if a(i)>0 then k=k+1
  if i mod 2 = 1 then s=s+a(i)
  if a mod b = 0 then p=p*a[i]
next i

for i=1 to n
  print a(i);
next i

print
print s
print p
print b

Ответить

Другие вопросы из категории

ГИА по информатике 2014.

В демо-варианте написано "Выберите ОДНО из предложенных ниже заданий: 20.1 или 20.2."
На самом экзамене будет так же, или придётся решать оба пункта? Просьба со ссылкой на источник, нужна точная информация.

Какие задачи решает ПК? Какое устройство необходимо компьютеру для хранения и запоминания информации? Какие виды памяти вы знаете? Что представляет собой

структура памяти ПК? В каком виде ПК хранит в памяти информацию? Что такое байт? Какое максимальное число может храниться в 1 байте? Основные блоки входящие в структурную схему ПК? Какое устройство необходимо для управлением компьютером? Какие устройства ввода информации вы знаете? Какие устройства вывода информации вы знаете? Для чего необходимо …

Читайте также

решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество

таких членов.

2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.

3.Дан массив из 10 элементов. Найти наибольший элемент массива.

В одно мерном массиве А(10) найти количество положительных и отрицательных элементов

Программа сделана правильно,но как только ее хочешь запустить там пишет "введите длину массива"какое число нужно вводить?

решите пожалуйста задачи на языке pascal abc net.

f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые

числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.



Вы находитесь на странице вопроса "НА QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.