сервис вопросов и ответовДан одномерный массив Q из N элементов, значения которых находятся в диапазоне от -70 до 150. Заменить все элементы, стоящие на местах, кратных 3,
10-11 класс|
|
на единицы. Вывести на экран исходный и новый массив.
31angelina1096
08 янв. 2015 г., 20:13:16 (9 лет назад)
Zhanna0204
08 янв. 2015 г., 21:39:47 (9 лет назад)
Программа на QBASIC
DIM i AS INTEGER, n AS INTEGER
CLS
INPUT "Введите количество элементов: ", n
DIM Q(1 TO n) AS INTEGER
RANDOMIZE TIMER
PRINT "Исходный массив"
FOR i = 1 TO n
Q(i) = INT(RND * 220) - 70
PRINT Q(i)
NEXT i
PRINT "Результирующий массив"
FOR i = 1 TO n
IF i MOD 3 = 0 THEN Q(i) = 1
PRINT Q(i)
NEXT i
END
Тестовое решение:
Введите количество элементов: 13
Исходный массив
121
34
27
69
30
95
98
28
136
100
48
120
82
Результирующий массив
121
34
1
69
30
1
98
28
1
100
48
1
82
Likamelek81
08 янв. 2015 г., 23:05:02 (9 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
Написать программу, в которую пользователь вводит число а компьютер выводит сообщение о том в каком интеревале оно лежит 1 до 10 , от 11 до 20 , от
21 до 30, и 31 до 40,
В паскале.
Построить последовательность чисел Фибоначчи: F=0,1,1,2,3,5,8,13,….n.
Числа Фибоначчи : последовательность, каждый следующий элемент которой равен сумме 2-х предыдущих., причем известно, что первый член последовательности f0=0, в второй f1 =1.
Помогите , мне нужны комментарии к этой программе.
Срочно!!
#include <stdlib.h>
#include <conio.h>
#include <stdio.h>
int schet(char *s);
int main() {
char vvod[100];
puts("Vvedite stroku:");
gets(vvod);
printf("%i \n", schet( vvod ));
system("pause");
return 0;
}
int schet(char *s)
{
int dlina, i, sum=0;
for(dlina=0; s[dlina]!='\0'; dlina++);
for(i=0; i if(s[i]>='0' && s[i]<='9')
{
sum=sum+s[i]-'0';
}
return sum;
}
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
дан одномерный массив J из N элементов ,значения которых находятся в диапазоне от -90 до 90 подсчитать кол-во положительных элементов .Вывести на экран
исходный массив и результат подсчёта .Программа бейсик
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Вы находитесь на странице вопроса "Дан одномерный массив Q из N элементов, значения которых находятся в диапазоне от -70 до 150. Заменить все элементы, стоящие на местах, кратных 3,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.