Написать программу, заполняющую массив 30 случайными числами [-10..80]. вывести массив. определить в этом массиве сумму чисел, кратных 3 определить количество отрицательных чисел. определить в этом массиве номер элемента, равного 0
Понятие "информация". Слово "информация" происходит от латинского слова informatio, что в переводе означает сведение, разъяснение, ознакомление. Понятие "информация" является базовым в курсе информатики, невозможно дать его определение через другие, более понятия. В геометрии, например, невозможно выразить содержание базовых понятий "точка", "луч", "плоскость" через более понятия. Содержание основных, базовых понятий в любой науке должно быть пояснено на примерах или выявлено путем их сопоставления с содержанием других понятий.
В общем, т.к. ты мне не ответил - лови две программы: 1) Program dasf; var b,c,i: integer; A: Array[1..100] of real; D: Array[1..100] of real; begin Writeln('Введите размерность массива D'); readln(b); For i:=1 to b do begin Writeln('Введите элемент массива №',i); readln(D[i]); end; Writeln('Массив А:'); For i:=1 to b do begin If i mod 2=1 then A[i]:=5+(D[i]*D[i]) else A[i]:=D[i]/i; Writeln(A[i]); end; end.
2) Program fgsadg; var i,b,x,y,z,k,t: integer; begin Writeln('Введите сколько чисел будет использоваться:'); readln(b); Writeln('Введите х:'); readln(x); Writeln('Введите число №',1); readln(z); k:=0; For i:=2 to b do begin Writeln('Введите число №',i); readln(y); If z+y=x then k:=k+1; z:=y; end; Writeln(k); end. Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Понятие "информация". Слово "информация" происходит от латинского слова informatio, что в переводе означает сведение, разъяснение, ознакомление. Понятие "информация" является базовым в курсе информатики, невозможно дать его определение через другие, более понятия. В геометрии, например, невозможно выразить содержание базовых понятий "точка", "луч", "плоскость" через более понятия. Содержание основных, базовых понятий в любой науке должно быть пояснено на примерах или выявлено путем их сопоставления с содержанием других понятий.
1)
Program dasf;
var b,c,i: integer;
A: Array[1..100] of real;
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do
begin
Writeln('Введите элемент массива №',i);
readln(D[i]);
end;
Writeln('Массив А:');
For i:=1 to b do
begin
If i mod 2=1 then A[i]:=5+(D[i]*D[i])
else A[i]:=D[i]/i;
Writeln(A[i]);
end;
end.
2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin
Writeln('Введите сколько чисел будет использоваться:');
readln(b);
Writeln('Введите х:');
readln(x);
Writeln('Введите число №',1);
readln(z);
k:=0;
For i:=2 to b do
begin
Writeln('Введите число №',i);
readln(y);
If z+y=x then k:=k+1;
z:=y;
end;
Writeln(k);
end.
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.