задача: Дан массив A состоящий из 10 элементов,заполнить его случайными числами и найти сумму элементов. решите задачу нескольк
10-11 класс
|
ими способами,вкратце обьяснить что вы написали чтобы понятно было)
На каком языке то нужно написать? Вот тебе пример на qBasic с комментариями:
CLS 'очистка экрана
SCREEN 12
DIM A(10) 'создание массива A из 10 элементов
FOR I = 1 TO 10 'начало цикла
X = INT(RND(1) * 9615) 'генерируем случайное число от 1 до 9615
A(I) = X 'заносим число в массив
NEXT 'конец цикла
N = 0
FOR I = 1 TO 10 'начало цикла
N = N + A(I) 'суммируем элементы массива
NEXT 'конец цикла
PRINT N 'выводим сумму
END 'конец программы
Другие вопросы из категории
Пока
Салтан воевал, царица родила сына –
царевича Гвидона:
…Шлет
с письмом она гонца,
Чтоб порадовать
отца.
А ткачиха с поварихой,
С сватьей
бабой Бабарихой
Извести ее хотят,
Сами
шлют гонца другого…
всего каталогов оказалось на диске, включая корневой?
1) 12
2) 13
3) 15
4) 16
Прошу помочь, очень срочно!
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все последующие вхождения первой буквы
Читайте также
Дан одномерный массив А состоящий из 10 элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.
ПОМОГИТЕ СРОЧНО!!!
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
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.