Помогите решить, очень нужно... 2. Составьте блок-схему алгоритма(её не надо) и программу вычисления в массиве A(10) количества положительных
10-11 класс
|
элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
2)
Program Massiv1;
var a:array[1..10] of real;
i:integer;
s:real;
begin
clrscr;
write('Введите элементы массива: ');
s:=0;
for i :=1 to 10 do
begin
readln(a[i]);
if (a[i]>0) then s:=s+1;
end;
writeln;
for i :=1 to 10 do writeln(a[i]:3:3);
writeln('Количество положительных элементов:',s);
readkey;
end.
3)
Program Massiv2;
var a:array[1..10] of integer;
i,b:integer;
begin
clrscr;
b:=2;
for i :=1 to 10 do
begin
a[i]=i+b;
b:=b+1;
write(a[i]:2);
end;
readkey;
end.
Другие вопросы из категории
Читайте также
2. Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
пользование электроэнергией производится по разным тарифам в зависимости от того, установлены ли в доме электрические или газовые плиты. В первом случае (электрические плиты) стоимость 1 кВт/час составляет 2 руб., во втором – 2.5 руб. Составить программу расчета суммы оплаты за пользование электроэнергией за месяц, если известен расход электроэнергии (количество потребленных в течение месяца кВт/час)
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.