Помогите составить программу...вот она. Даны К и массив Т(к). Найти сумму и количество элементов в массиве Т после первого нулевого элемента.
10-11 класс
|
const kmax = 20;
var T:array [1..kmax] of integer;
i,k,zero,sum,count:integer;
begin
count:=0;
sum:=0;
repeat
write ('K(K<20) = ');
readln (k);
until k in [1..kmax];
randomize;
for i:=1 to k do
begin
T[i]:=random(14)-5;
write (T[i]:3);
end;
writeln;
zero:=1;
while (zero<=k) and (T[zero]<>0) do inc(zero);
count:=k-zero;
if zero<>kmax then
for i:=zero+1 to k do sum:=sum+T[i];
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',count);
end.
Эту программу надо написать в Паскале
Другие вопросы из категории
//Задан одномерный массив,вывести на печать все элементы, которые равны первому.
const n=5;
Var A:array[1..n] of integer;
i:integer;
Begin
// Формируем и выводим массив
Writeln(' Массив: ');
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(A[i]:2);
end;
Writeln();
// Находим элементы, которые равны первому.
Writeln(' Первому элементу равны:');
For i:=1 to n do
begin
If (A[1]=A[i]) then
Write(A[i]:2)
end;
end.
в этой последовательности.
рекомендации: инверсией считать пару элементов, в которой большее число находится перед меньшим (хi>xj, если i>j)
Читайте также
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"