Помогите решить задачу в паскале.Даны три массива:A = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3},B = {-1.2, 4
Extorned
Type
V = array of real;
function SumPos(a:V): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 0 to Length(a, 0) - 1 do
if a[i] > 0 then s := s + a[i];
Result := s
end;
var
A, B, C: V;
begin
A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
writeln('Сумма положительных элементов массива А ',SumPos(A));
writeln('Сумма положительных элементов массива B ',SumPos(B));
writeln('Сумма положительных элементов массива C ',SumPos(C));
end.
Тестовый прогон:
Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2
#include<iostream.h>
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}
2 Вещество - это то, из чего состоит физическое тело, то есть окружающие предметы.
3 Дома,на работе ( в школе ) , на улице , те же фонари , машины , вывески магазина.
4 Информационный процесс — процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения и использования информации
5 Хранение информации, передача информации, обработка информации
6 Имея органы чувств, животные и растения воспринимают информацию. Например, цветы, получив информацию о наступлении темноты, закрывают свои бутоны. А животные по звуку могут определить приближение опасности. Информационные сигналы могут быть различной природы. Это могут быть звуки, свет, запахи, температура и химический состав среды, вспышки света. Растения и животные не могли бы нормально функционировать, если бы не получали и не использовали информацию об окружающей среде.
7 Решение задачи, перевод текста.
1 нецелесообразно переводить текст
2 компьютерный перевод нуждаеться в ключе
не уверен но как-то так
