В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
гога61
гога61
05.06.2023 08:50 •  Информатика

Господи Наибольший элемент a[', max, ']=', a[max])
end.

Переделайте данную программу так, чтобы она находила наименьший элемент массива.

2 )

program element;
var x, i, n: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
writeln (a[i]);
end;
write(‘Введите искомое число = ‘); read(x);
for i:=1 to 10 do
if a[i]=x then n:=i;
if n=0 then write(‘Этого числа нет')
else write(‘Номер элемента = ‘,n)
end.

Переделайте эту программу так,
чтобы она по заданному номеру
выводила значение элемент
массива.

3 )

Напишите программу, которая в одномерном массиве из
1000 элементов считает количество и сумму элементов
больших значения 50.

Показать ответ
Ответ:
mishel7884
mishel7884
21.12.2021 05:59
1. Современное короткое, но скорее всего, мало понятное школьнику решение

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function LineLen(a,b:(real,real)):=
  Sqrt(Sqr(b.Item1-a.Item1)+Sqr(b.Item2-a.Item2));

begin
  var a:array[1..3] of (real,real);
  var x,y:real;
  Writeln('Введите три пары координат x,y');
  for var i:=1 to 3 do begin Read(x,y); a[i]:=(x,y) end;
  Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+
    LineLen(a[1],a[3])+LineLen(a[2],a[3]))
end.

Тестовое решение:
Введите три пары координат x,y
3 -3.5 -6 8 4 5.2
Периметр треугольника равен 33.7449685386805

2. Традиционное, но возможно тоже не очень понятное школьнику решение

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
type
  Point=record
    x,y:real
    end;

function LineLen(a,b:Point):real;
begin
  Result:=Sqrt(Sqr(b.x-a.x)+Sqr(b.y-a.y));
end;
 
var
  a:array[1..3] of Point;
 
begin
  Writeln('Введите три пары координат x,y');
  for var i:=1 to 3 do Read(a[i].x,a[i].y);
  Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+
    LineLen(a[1],a[3])+LineLen(a[2],a[3]))
end.
0,0(0 оценок)
Ответ:
Fhftt3
Fhftt3
29.12.2020 20:14
Это же изи!
#include <iostream>
#include <cstdlib>
#include <vector>
using namespace std;

int main()
{
vector<int> arr;
int c;
cout <<"Введите количество элементов массива: ";
cin >>c;
char ch;
cout <<"Заполнить массив случайными числами? (y/n): ";
cin >>ch;
if((ch=='y') || (ch=='Y'))
{
cout <<"Начальный массив:" <<endl;
srand(time(0));
for(unsigned i=0; i<c; ++i)
{
arr.push_back((rand()%1001)-500);
cout <<arr[i] <<" ";
}
cout <<endl;
}
else
{
int a;
cout <<"Введите элементы массива: ";
for(unsigned i=0; i<c; ++i)
{
cin >>a;
arr.push_back(a);
}
}

cout <<"Измененный массив:" <<endl;
for(unsigned i=0; i<c; ++i)
{
arr[i]*=-1;
cout <<arr[i] <<" ";
}
cout <<endl;

return 0;
}

Дан массив целых чисел.заменить все элементы данного массива на противоположные по знаку(c++)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота