Помогите ^^
10-11 класс
|
Тема массивы.
Заранее благодарю
I задача.
Program n1;
Uses Crt;
var a: array[1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(10)-10;
writeln(i,')=',a[i],', ');
end;
end.
II задача.
Program n1;
Uses Crt;
var a: array[1..7] of integer;
i,s:integer;
begin
writeln('Vvedi tepmeraturu po dnyam:');
for i:=1 to 7 do readln(a[i]);
s:=0;
for i:=1 to 7 do s:=s+a[i];
writeln('Sred. temperatura za nedelju: ',s/7);
end.
III задача.
Program n1;
Uses Crt;
var a: array[1..50] of integer;
i,j:integer;
begin
for i:=1 to 50 do
begin
a[i]:=random(101)-50;
end;
for i:=1 to 50 do begin
if (a[i]<0) then writeln('Otricatelnoe chislo: ', a[i]);
if (a[i] mod 3 = 0) then writeln('delenie na 3: ', a[i]);
if (i mod 6 = 0) then writeln('Index deleniy na 6: ', i);
end;
end.
Другие вопросы из категории
порядковый номер первого элемента, нарушающего закономерность.
2. Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от K до N.
имеют разные профессии: водитель, программист, аптекарь и строитель. Известно, что:
1. строитель живет с краю;
2. строитель живет рядом с водителем;
3. программист живет левее аптекаря;
4. аптекарь живет правее строителя;
5. Вениамин не строитель;
6. Борис живет правее программиста;
7. Алексей проживает через дом от Бориса.
Определите, кто, где живет.
Пятнашки.txt
Пятнашки.wav
Пятнашки.bmp
Пятнашки.com
Укажите, какой файл вы откроете чтобы прослушать музыкальное сопровождение к игре.
Пятнашки.avi
Пятнашки.txt
Пятнашки.wav
Пятнашки.bmp
Пятнашки.com
Укажите, какой файл вы откроете, чтобы прослушать музыкальное сопровождение к игре.
Пятнашки.avi
Пятнашки.txt
Пятнашки.wav
Пятнашки.bmp
Пятнашки.com
Укажите, с помощью какого файла вы запустите игру.
Пятнашки.avi
Пятнашки.txt
Пятнашки.wav
Пятнашки.bmp
Пятнашки.com
an>затем к результату прибавить четыре и от полученного числа отнять предыдущее число.
Читайте также
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Пожалуйста...Срочно...Завтра крайний срок сдачи...Помогите...
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с