{Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.}var j,k,i:integer;sum:longint;R:Array[1..100] of integer;Beginfor i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if i <> R[i] then sum:= sum + R[i];end;writeln;writeln('сумму элементов массива = ',sum);end.
{Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.}var k,i,max:integer;R:Array[1..100] of integer;Beginmax:=-25;for i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if R[i] > max then max:= R[i];end;writeln;writeln('максимальный элемент массива = ',max);end.

0 0

4 года назад

Помогите разгадать кросворд!способ кодирования информации с помощью чисел.....8букв 3 буква "С" 5 буква "О" последняя буква "Й"+

Yulia Pie [2]

C помощью чисел - числовой
с помощью того же алфавита, что и исходный текст - символьный

0 0

4 года назад

Ребятааа,очень надо. помогите мне пожалуйста. решите хотябы 2.

Katerina1510 [7]

Using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;
namespace ConsoleApplication3{ class Program { static void Main(string[] args) { Console.Write("a = "); double a = double.Parse(Console.ReadLine()); Console.Write("b = "); double b = double.Parse(Console.ReadLine()); Console.Write("c = "); double c = double.Parse(Console.ReadLine()); if (a > b) a = b; if (a > c) a = c; Console.WriteLine("Min = {0}", a); Console.ReadKey(); } }}

0 0

4 года назад

Информатика 9 класс Задание на фото! Много баллов!

Муть черная

<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>

1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.

Пример:
Введите x-> 2
y=6

2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.

Пример:
Введите x-> 5
y=125.00

0 0

4 года назад