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

Отрицательные элементы возвести в квадрат. сколько замен элементов массива произошло?

👇
Ответ:
ellia2
ellia2
14.09.2021
Program n1;
uses crt;
const nn=1000;
var
 i,n,k:integer;
  m:array[1..nn] of integer;
begin
k:=0;writeln('Введите размерность массива'); read(n); writeln; 
writeln('Введите массив');
for i:=1 to n do begin
readln(m[i]);
if m[i]<0 then begin
 m[i]:=m[i]*m[i]; k:=k+1; end; 
end;
for i:=1 to n do write(m[i],' '); writeln;
write('Замена произошла ',k,' раз(а)');
end.
4,4(76 оценок)
Открыть все ответы
Ответ:
ggwpbro
ggwpbro
14.09.2021
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
short N;
int sum=0;
int max=0;
cout << "N=";
cin >> N;
int *array=new int [N];
for (short i=0;i<N;i++)
array[i]=rand()%201-100;
cout << "Получившийся массив: " << endl;
for (short i=0;i<N;i++)
{
cout << array[i] << ' ';
sum+=array[i];
}
for (short i=0;i<N-1;i++)
{
if (max<array[i])
max=array[i];
}
cout << endl;
cout << "Сумма элементов: " << sum << endl;
cout << "Максимальное число: " << max << endl;
system ("PAUSE");
return 0;
}
4,8(2 оценок)
Ответ:
karamanilya
karamanilya
14.09.2021
Program Ex1;

var
  s: string;
  c: char;
  i, n, m, min: integer;

begin
  s := '';
  m := 0;
  n := 0;
  min := 10;
  writeln('Введите число');
  repeat
    read(c);
    s := s + c;
    i := StrToInt(c);
    if i mod 2 = 0 then
      if c <> '0' then m := m + 1;
    // для задания 2)
    n := n + 1;
    if i < min then min := i
  until c = '0';
  writeln('Введено число ', s, ', в нем четных цифр- ', m)
end.

program Ex2;

var
  s: string;
  i, d, n, min: integer;

begin
  min := 10;
  writeln('Введите число');
  readln(s);
  n := length(s);
  for i := 1 to length(s) do
  begin
    d := StrToInt(s[i]);
    if d < min then min := d
  end;
  writeln('Введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min)
end.
4,5(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ