1. Информатика
  2. Ввещественной таблице

Ввещественной таблице a[1: 10] найдите количество всех ненулевых элементов

belkabymka belkabymka    3   07.03.2019 18:00    2

Ответы
Dianakim05 Dianakim05  24.05.2020 03:45

var a:array [1..10] of real;

s,i:integer;

Begin

  {vvod tablicy}

  for i := 1 to 10 do

    if a[i]<>0 then s:=s+1;

  writeln(s);

  

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dumbschoolkid dumbschoolkid  27.02.2021 09:02
даны строки A, B и C, состоящие только из цифр.1) Выведи эти строки слитно на экран.2) преобразуй эти строки в целые числа и найди их сумму.​...
ponyni ponyni  27.02.2021 08:56
Запиши программу на движение робота по линии помаги...
Biserka1999 Biserka1999  27.02.2021 08:47
Тема урока: Движение робота по линии урок№1 1.Вспомни режимы датчика цвета!2. Изучи предложенный программный код и расставь действия алгоритма в правильном порядке. (фото)A. движение...
Kek1928 Kek1928  27.02.2021 08:47
составьте алгоритм вычисления расстояния между двумя точками x1, y1, x2, y2(использую теорему Пифагора.​...
настя7598 настя7598  30.05.2019 21:00
Вкаком порядке будут расположены слова, если упорядочить их по убыванию суммы кодов символов в таблице кодировки ascii? 1) окно 2) кино 3) ника 4) конь 5) ночь...
zzubaidulloieva zzubaidulloieva  13.08.2019 22:50
Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. программа получает на вход числа, кол-во чисел неизвестно, последовательность...
tabastyaffdsgh tabastyaffdsgh  13.08.2019 22:50
Вычислить сумму цифр четырехзначного числа, которые кратны 3 паскаль...
Vasilchenkodan Vasilchenkodan  13.08.2019 22:50
1. напишите программу, которая для последовательности натуральных чисел определяет их сумму. программа получает на вход количество чисел в последовательности и сами числа 2. измените...
Lisa18811 Lisa18811  13.08.2019 22:50
Водномерном массиве из 10 элементов посчитать количество четных чисел и произведение нечетных...
VadimOMG VadimOMG  12.06.2019 10:00
Дано двузначное число верно ли что все цифры этого числа одинаковые. решите в...

Популярные вопросы