М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
belkabymka
belkabymka
01.03.2023 13:35 •  Информатика

. Чим табличні величини відрізняються від текстових або числових величин? 2. Учому особливість опису табличних величин мовами програмування Free Pascal, Python? 3. Учому відмінність табличної величини та елемента табличної величини? 4. Чи обов'язково кожному елементу табличної величини ставити у відповід- нiсть його номер? Для чого потрібні такі номери? Чи можна визначити кількість елементів за описом табличної величини 5. мовами програмування Free Pascal, Рython? 6. Які засоби для введення й виведення елементів табличної величини передбачені у програмах мовами програмування Free Pascal, Python? 7. Які елементи управління використовують для введення чи виведення значень табличних величин у середовищі програмування Lazarus?​​

👇
Открыть все ответы
Ответ:
glazyrinasasha
glazyrinasasha
01.03.2023
var
  x: string;
  arr: array of char;

begin
  readln(x);
  arr := x.Split(' ')[1].ToCharArray();
  System.Array.Reverse(arr);
  writeln(length(arr), '   ', new string(arr));
end.

var
  c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
  r, q, s: real;
  i, a, b: byte;
  
begin
  q := 1;
  i := 1;
  r := c.Min();
  while (i < length(c)) do
  begin
    q *= c[i];
    i += 2;
  end;
  readln(a, b);
  s := b - a - 1;
  writeln('T = ', (R / Q + 1) + S);
end.

const
  k = 5;
  p = 5;

var
  f: array [1..k, 1..p] of string;
  o: real;
  df: byte;

begin
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 99).ToString();
      write(f[i, j]:3);
      if (j >= 7 - i) then
      begin
        o += integer.Parse(f[i, j]);
        df += 1;
        f[i, j] := '██';
      end;
    end;
    writeln();
  end;
  writeln();
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
  writeln(o / df);
end.
4,6(20 оценок)
Ответ:
glebshestopal
glebshestopal
01.03.2023

#include <iostream>

#include<conio.h>

#include "windows.h"

using namespace std;

int main()

{

float sum;

int n,count;

cout << "введите длину массива ";

cin >> n;

sum = 0;

count = 0;

float *mass = new float[n];

cout << "проинициализируйте массив" << endl;

for (int i = 0; i < n; i++)

{

 cin >> mass[i];

}

for (int i = 0; i < n; i++)

{

 if (mass[i] > 0)

 {

  sum += mass[i];

  count++;

 }

}

cout <<"среднее арифметическое положительных элементов массива = " << sum / count;

delete[] mass;

return 0;

}

4,8(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ